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Az Országos Commodore Egyesület lapja 


Vili. évfolyam 1993/2 



Lapunkban megtaláljak _|_i_ 

pályázatunk eredményhridetését 
és a győztes programok bemutatását. 

I Bővebb terjedelemben 
f folyamatosan közöljük a díjnyertes munkákat 














1-10331 

ELEKTRON IK 

Urbán István mérnök áramköreinek szakűzlete 


Budapest VII., Dózsa György út 16. (Dózsa-Jobbágy sarok) 
Nyitva: H-P 10-17-ig Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


Több, mint tíz éve írok a Rádiótechnikában, vezetem a „Zenei hobby elektronika" fejlécű rovatot. A közölt témák 
nagyrészéhez szaküzletemben - működő minta alapján - vásárolhat panelokat, részegységeket, egységcsomagokat. 


KÍNÁLATUNKBÓL: 


SZÁMÍTÁSTECHNIKA: 


C64 bővítők:egys. éleszt. 


RT89/3 

PLOFI Datassette cartridge. 

.1200 Ft... 

...1500 Ft 


PLOFI Datassetlerpromon. 

.1300 Ft... 

...1700 Ft 


PLOFI Datassette/help. 

.1300 Ft... 

.. 1700 Ft 

RT89/10 PLOFI Fastload cartridge. 

.1300 Ft... 

...1700 Fi 


PLOFI Fastload speedtape. 

1400 Ft... 

...1900 Fi 

RT90/3 

PLOFI Simon's cartridge. 

.1300 Ft... 

...1700 Fi 


FINAL III cartridge. 


.3450 Ft 


ACTION ReplayVII. 


... 3450 Ft 

RT89/11 Fényceruza, szoftverrel. 

...960 Ft... 

...1250 Ft 

RT90/8 

Hangdlgitalizáló + szoftver. 

.1350 Ft... 

...1650 Ft 

HE90/8 

Hangkapcsoló. 

. .300 Ft 


RT89/4 

EPROM-égető. 

.3400 Ft... 

...4500 Ft 


Égető szoftver lemezen. 

.1300 Ft 



Égető szoftveresrtridge. 

.1300 Ft... 

...1700 FI 


User csatlakozó. 

... 300 Fi 


RT91/3 

EPROM-bar* (256 Kbájtj. 

.2900 Ft... 

...4000 Fi 

RT91/10 ICtes7ter 

. 3000 Fi.. 

.. 4500 Fi 

RT91/7 

Datassette gyorsmásoló. 

...600 Ft 


HE91/7 

Datassette fejbeállító. 

...350 Ft 


HE90/12 CPU stop t resel. 

...400 Ft 



PAGEFOXszővegszerkesztö. 


... 3900 Ft 


Mim EPROM banx. 

2300 Ft... 

.3000 Ft 


|IBM bővítők:egys. éleszt. 

RT91/4.5 IBM IC teszter + szoftver. 5900 Ft.9800 Ft 

RT91/11,12 IBM EPROM-égető 

+ szoftver.4800 Ft.9900 Ft 

RT91/6 48 csat. VO kártya.3500 Ft 


HE92/2 User-Centronics csatlakozó.950 Ft 

RT92<3 TTL IC katalógus lemezen.600 Ft 

CMOS IC katalógus lemezen.600 Ft 

Dióda katalógus lemezen.600 Ft 

Tranzisztor katalógus lemezen.. .600 Ft 


ZENE - HANGTECHNIKA: 


RT87/10 Fuzz-box torzító.670 Ft 

RT90/1 KORGDST-1 torzító.1200 Ft 

.KORG DST-3 torzító.1400 Ft 

HE90/1 KORG OVERDRIVE torzító.920 Ft 

RT87/12 Vau-vau gitáreflekt.640 Ft 

RT88/9 Sztereó tremoló.980 Ft 

RTBfl/7 Shitter.1200 Ft 

HE90/7 Kiszajúgitárelóerósltő.700 Ft 

RT89/5 Sztereóelöe rösítö.1500 Ft 

HE91/12 Hangfrekvenciás erősítő.490 Ft 

RT89/8 2 x 14 W sztereó erősítő.„...990 Ft 

RT89/12 2 x 40 W sztereó erősítő.1800 Ft 

RT89/1 100 W-os erősítő.1600 Ft 

RT90/3 Ritmusgép 32 ritmussal. .2500 Ft 

RT90/10 Dobszintetizátor.3500 Fi 

RT8873 Süvöltő gítárelfekt.780 Ft 

RT87/11 Ringmodulálor.995 Ft 

RT92.-4 Oktávemelő. 700 Ft 

.Visszhangosító MN3005-tel.4800 Ft 


VIDEÓS TÉMÁK: 


RT9276 RGB generátor.1760 Ft 

RT92711 PÁL kóder...1400 Ft 


FÉNYTECHNIKA: 


RT88/10 Diszkólény II (triak nékül). 1400 Ft 

Diszkófény II (Inakkal).3000 Fi 

RT88/12 Fényorgona.2000 Fi 

RT90/2 Programozható futólény.. 1200 Ft 

RT91/1 8 x 8-as fénymátrix 

+16 K EPROM.2000 Ft 

8 x 8-hoz LED panel 

10 mm-es LED-ekkel. 2000 Ft 

RT89/6 Kivezérlésjelzö.700 Ft 

RT91/8 Sziporkázó szingyürü.650 Ft 

Kétszínű LED.48 Ft 

HE91/10 Karácsonyi fényjáték.700 Ft 

HE92/8 Kntght Rider futófény...950 Ft 


EGYÉB HOBBI TÉMÁK: 


RT88/10 Dallamgenerátor Z80-nal.1500 Ft 

HE91/1 Dallamgenerátor UM3481-84.800 Ft 

HE91/5 Dallamgenerátor UM66Txx.480 Ft 

HE91/4 BeszédfelismerőVCP200-zal.750 Ft 

VCP200. 1950 Ft 

HE91/2 Kutyaugatás szintetizátor. 800 Ft 

RT91/8 Eb-vezérlő.400 Ft 

H E91 .'6 Szúnyogriasztó.700 Ft 

HE91-9 Muftisziréna.480 Fi 


Az árak a 25% ÁFA-t tartalmazzák! 


Választékunk folyamatosan bővül! A Rádiótechnikában, a Hobby Elektronikában megjelent 
nyák-tervek alapján készült nyomtatott áramköri lapok az üzletben megvásárolhatók. 



MŰSZERVÁSÁR 

Bontott anyagok, 
használt műszerek 
böngészdéje 


Vidéki olvasóknak segít a szerző levelező, egységcsomagküldő 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldöm. Telefonon/faxon és levélben is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

Levélcím: 1656 Budapest Pf. 50. 



Állandóan változó készlet! 

Az üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 


























































































































MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-újságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 (X)0 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tagjainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Tagoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon: 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Újság, 1388 Budapest, 62. Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

92.0305 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


Tagdíjbefizetés 

Kedves Tagtársaink! 

A realitásokat figyelembe véve egyesületünk 
közzéteszi, hogy mértéktartóan bár, de megvál¬ 
toznak tagdíjaink, 1993. január elsejétől. 

Deákpáholy: 890 Ft 

Pluszpáholy: 2 050 Ft 

Szuperpáholy: 24 000 Ft 

Országos Commodore Egyesület 


Klubdélelőtt 

Az Országos Commodore Egyesület klubdélelőt- 
töt tart a Havanna Közösségi Házban minden 
hónap 3. vasárnapján, délelőtt 9 órától. 

(1181 Budapest, Kondor Béla sétány 8.) 
Megközelíthető: a metró kőbánya-kispesti végál¬ 
lomásától a piros 136-os busszal. 

Várunk benneteket! Legközelebb: 

február 16-án és 
március 15-én. 


FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák el 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11-15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 


Tisztelt Commodore Újság! 

Gondolom, sokan próbálkoznak azzal, hogy egy program lis¬ 
táját lekódolják. Én erre tudok egy többé-kevésbé használható 
eljárást. Ezt a következő programban szemléltetem: 

1 rém kódoljuk shift és 1-betűt! 

10 print „ide jön az Ön programja”!!! 

Ha listázzuk, akkor csak az első sor fog kijönni. 

Basa Lionel 


o 
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TIPPEK-TRÜKKÖK 

Tippek-trükkök 

nyomtatóhoz 


Nyomtató a User-Port-on. 1. tipp 

Ha a felhasználói kapura csatlakoztatott nyomtató nem mű¬ 
ködik, először mindig a kábel bekötését kell megvizsgálni. A 
nyomtató adatvezetékei (Centronics 2—9) az User-Port C—L 
érintkezőivel legyenek összekötve. A nyomtató Strobebe- 
menete (Centronics 1) a User-Port M-re jön, míg a nyomtató 
foglaltságot jelző (BUSY-FLAG) vezetéke (Centronics 10) a 
User-Port B-re. A nyomtató földelő vezetéke (GND, Centronics 
19—30) a C-64 földelő vezetékére (User-Port 1, 12, A vagy N 
érintkezőire) legyen kötve. 

Nyomtató a User-Port-on. 2. tipp 

Gyakran előfordul a párhuzamos floppy-adatátviteles rend¬ 
szereknél, hogy a lemezegység csak akkor működik, ha ugyan¬ 
akkor a nyomtató összekötő kábele ki van húzva, és fordítva is 
igaz. Ennek az oka, hogy a C-64 2. jelzővezetékén (User-Port 
B) a jelek összeütköznek. Itt a segítség viszonylag egyszerű. A 
floppy, illetőleg a nyomtató eme vezetékeit ne közvetlenül kös¬ 
sük az User-Port csatlakozókra, hanem iktassunk közbe egy-egy 
diódát (pl. 1N4148). A diódák polaritása feltétlenül figyelembe 
veendő, az anódjuk nézzen a User-Port felé, míg a katódjuk, 
amin a jelzőgyűrű van, az nézzen a floppy, illetve a nyomtató 
felé. Ily módon a diódák a 2. jelző bemenetet alacsony szintre 
húzzák, egymást azonban kölcsönösen nem zavarják. 

Nyomtató a User-port-on. 3. tipp 

Ha valaki körszelvényű kábelből fabrikál magának csatlako¬ 
zást a User-Port és a floppy összekötésére, gyakran csodálkozik, 
hogy a floppy nem működik, pedig már százszor ellenőrizte. En¬ 
nek az oka gyakran a kábel kapacitása. Egy kb. 1 nF kapacitású 
kondenzátort forrasszunk a User-Port A és B csatlakozói közé. 
Ez csaknem mindig segít. 

Nyomtató a User-Port-on. 4. tip 

Ha a nyomtatónak a számítógép hardver-resetjét is végre 
kell hajtani, az ,,Init Printer” vezetéket (Centronics 31) egy dió¬ 
da közbeiktatásával össze kell kötni a User-Porttal. A dióda az 
anódjával nézzen a nyomtató felé, és megakadályozza, hogy a 
nyomtató kikapcsolásakor a C64 resetet hajtson végre. 

Nyomtató a User-Port-on. 5. tipp 

Még egy tipp azoknak, akik a nyomtatót C64-hez is és PC- 
hez is használják. C64 esetén sok nyomtatóprogramnál az auto¬ 
matikus soremelés DIP-kapcsolójának BE (ON) állásban kell 


lenni, míg PC-re csatlakoztatva mindig KI (OFF) állás kell. Az 
újabb nyomtatók többsége ennek az információnak az átvitelére 
a Centronics 14. érintkezőjét használja. Ha tehát ezeknél a User- 
Port kábel Centronics dugaszolójának 14. érintkezőjét egy hu¬ 
zaldarabbal áthidaljuk a földelésre (Centronics 19—30), akkor 
a nyomtatóban az automatikus soremelés DIP-kapcsolója min¬ 
dig KI (OFF) helyzetben maradhat. Amikor a C64 kábelját dug¬ 
juk a nyomtatóba, az automatikus soremelés be lesz kapcsolva. 
Vigyázat! Ez a trükk nem minden nyomtatónál eredményes. 

Nyomtatás levelezőlapra 

Majdnem minden mátrixnyomtató használója nosztalgiával 
gondol a jó öreg írógépekre, és olykor kénytelen megállapítani, 
hogy bizonyos előnyeik azoknak is voltak ezekkel szemben. 
Ezek az előnyök akkor mutatkoznak meg, amikor valamilyen űr¬ 
lapot kell kitölteni, vagy ha borítékra, levelezőlapra, vékonyabb 
kartonra kell írni. Azzal a ténnyel, hogy többnyire nem lehet 
mindig előre látni, hova is kerül a következő betű, a legtöbb fel¬ 
használó így vagy úgy kiegyezik. 

Amiatt azonban szerfelett mérges lehet bárki, hogy a borí¬ 
ték megcímzése, vagy egy adatlap kitöltése alig lehetséges. Van¬ 
nak ugyan leporellóra nyomtatott űrlapok, ezek azonban először 
is drágák, másrészt 1000 példány alatti mennyiség aligha kapha¬ 
tó belőlük. 

A szokásos példányok méreteik, és többnyire 250 g/m 2 fe¬ 
letti papírvastagságuk miatt rendszerint fennakadnak a lapada¬ 
golón, vagy a henger nem továbbítja őket, vagy ha mégis, akkor 
ferdén állnak be. Ha mégis kivételesen jól sikerül a behúzás, ak¬ 
kor meg nem lehet pl. a lap alsó soraira írni, mert ott már nem 
tartja a lapot a papírszorító. 

Egyes példányok esetére a következő eljárást ajánlhatjuk. A 
kartont, borítékot ragasszuk fotosarokkal egy ív lehetőleg vé¬ 
kony papírra vagy leporellóra. A legtöbb nyomtatónál még szük¬ 
séges lehet a karton felső szegélyét keskeny ragasztószalag¬ 
csíkkal is rögzíteni, nehogy a nyomtatóban valahol elakadjon. 

Meg kell azonban jegyezni, hogy ez a módszer a nyomtató 
mechanikájától függően kísérelhető meg. A finomabbak nem 
biztos, hogy kibírják sérülés nélkül. A robusztusabb nyomtatók 
(amelyek megengedik 2—3 példány papír + indigó befűzését) 
esetében azonban a próbálkozás megoldásához is vezethet, mert 
néhány űrlap kedvéért ezer leporelló-űrlapot készíttetni igen¬ 
csak költséges mulatság lenne. 

..Fontmaster" (betűszerkesztő) 
LX-800-zal 

A „Fontmaster 128” az Epson LX-800-zal és User-Port ká¬ 
bellel az alábbi beállítási adatokkal hajtható meg: Nem kell csa¬ 
toló (interfész), készülékszám 4, másodlagos című, csatlakozás 
soros, nyomtató LX-80, opció illesztve, modul 0. 
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PALYAZAT 


O 

PÁLYÁZAT 

Eredményhirdetés 


Stratégiai játékpályázatunk ismét 
megmozgatta tagságunk és olvasóink 
fantáziáját. Úgy látszik, nem volt min 
denki számára érthető, mit értünk stra 
tégiai játékon (a program valósít meg a 
játékossal szemben egy stratégiát), 
mert sok Olyan programot kaptunk, 
ahol a gép két játékos egymás elleni lé 
péseit adminisztrálja vagy a játékosnak 
egyedül kell valamilyen feladatot meg 
oldania. 

Zsűrink végül 30 pályaművet rang¬ 
sorolt. A minősítés a pályázati kiírás 
bán szereplő feltételek vizsgálatával, 
pontozással történt. Így bizony előfor¬ 
dult, hogy egy jól működő, ügyes algo¬ 
ritmusé játék egy gyengébb mögé ke¬ 
rült, mert szerzője elmulasztott leírást 
mellékelni programjához. A minősítés 
szempontjairól, a stratégiai játékpályá¬ 
zat tapasztalatairól külön cikkben 
szólunk. 

Az Országos Commodore 
Egyesület 

1992. évi játékpályázatának 

első helyezettje: 

KOSZPER VILMOS 

második helyezettje: 

BADENSZKY CSABA 

A harmadik—tizedik helyezettek: 

3. Sasvári Gábor 

4. Gazsó János 

5. Alexay Péter 

6. Szaszkó Péter 

7. Szakály György 

8. Décsi Tamás 

9. Fapál Ferenc 

10. Harna M. András 

A nyertes programok közlését 
1993. februári számunkban kezdjük 
meg. A későbbiekben a többiek prog 
ramjait is közzétesszük, sőt a pályázatra 
beküldött, nem stratégiai játékok is sor 
ra kerülnek. 

Szeretnénk felhívni azon olvasóink 
figyelmét, akik a pályázati kiírást nem 
olvasták, hogy ezeket a programokat 
nem lehet a kereskedelmi forgalomban 
kapható Commodore játékprogramok¬ 
kal összehasonlítani, hiszen nálunk fel 
tétel volt a BASIC nyelvű, kötött terje 
delmű programlista. 


A pályázatra több, mint hatvan 
programot kaptunk, ami sikernek szá¬ 
mít, és jelzi az olvasók vállalkozó ked¬ 
vét. Ehhez viszonyítva nagy csalódást 
okozott, hogy a beérkezett munkák 
közel kétharmada nem volt értékelhe¬ 
tő, mert nem teljesítette a pályázat ki¬ 
írásában meghirdetett feltételeket. 
Ezek között körülbelül egyenlő arány¬ 
ban találtunk olyan programokat, 
amelyekhez minimális leírás sem tarto¬ 
zott, amelyek egy egyszemélyes logi¬ 
kai játékot valósítanak meg, és ame¬ 
lyekben a gép csak a játék segédesz¬ 
köze két játékos számára. 

Nem tudtunk magyarázatot talál¬ 
ni az ilyen tömeges figyelmetlenségre. 
Sajnos így olyanok munkája is kárba 
veszett — a pályázat szemszögéből —, 
akik pedig láthatóan sok fáradságot 
fordítottak a program tetszetős, tech¬ 
nikás kidolgozására, mint például Har¬ 
gitai Vilmos. Elképzelhető, hogy ké¬ 
sőbb néhányat a legjobb érvénytelen 
programok közül lapunkban bemuta¬ 
tunk. 

A stratégiai játékok fogalma vala¬ 
mi olyasmit takar, amikor a játékosok, 
egymás lépéseit figyelembe véve, sok 
lehetséges lépés közül igyekeznek a 
legmegfelelőbbet választani, végső 
soron teret, figurát, lépési lehetőséget 
véve el a másiktól, a győzelemig. Ilyen 
játék például a sakk, a malom, az amő¬ 
ba, de még a dominó vagy a Do-guti 
is; igazán rugalmasan bíráltuk el a kü¬ 
lönböző játékötleteket. De az olyan 
program, amellyel nem a számítógépi 
partner ELLEN játszhatunk egy nem 
pusztán a szerencsén múló játékot, 
semmiképp sem volt elfogadható. Az 
ilyen programban a gép nem „játszik", 
és szó sem lehet a program által alkal¬ 
mazott stratégiáról. Mindkét kitétel 
megtalálható volt a pályázat kiírá¬ 
sában. 

Még inkább hiába dolgoztak 
azok, akik írtak ugyan egy esetleg 
nagyon jó programot, de a mellékelt 
dokumentáció nem érte el az elfogad 


ható minimum szintjét. Egy hetekig 
tartó munkát kár volt még néhány órai 
fáradság megtakarításával tönkreten¬ 
ni. A pályázat megfogalmazásából vi¬ 
lágosan kiderül, hogy a programhoz 
részletes leírást kellett csatolni nem¬ 
csak a program használatáról és a játék 
szabályairól, hanem a stratégia főbb 
elemeiről is. De ha a stratégia ismerte¬ 
tésétől el is tekinthettünk volna, akkor 
is túl sok olyan program érkezett, 
amely leírásába a szerző még az udva¬ 
riasságból elvárható legkevesebb 
munkát sem fektette. Egy cédulára fir- 
kantott néhány zűrzavaros mondat a 
játékról még nem tekinthető leírásnak. 
Ügy látszik, hogy Még többet ésszel! 
című sorozatunkban érdemes lesz ki¬ 
térni a programok dokumentálásának 
alapfogásaira. 

A legjobb programok szezőinek 
körültekintő munkáját jellemezheti, 
hogy az első öt helyezett pályázó által 
beküldött leírások közül négy jó minő¬ 
sítést kapott. És sajnáljuk Varga Zoltán 
és Késik Lajos fáradozását, akik egy 
gyengécske dokumentációval is beke¬ 
rülhettek volna a legjobb tíz közé. 

Még egy furcsa dologról essen 
szó. Több olyan lemezt is kaptunk, 
amelyről csak keserves, aprólékos 
munkával tudtuk beolvasni a progra¬ 
mokat, és volt olyan is, amely tartalma 
egyáltalán nem volt megmenthető. 
Van, aki már alig használható lemezét 
küldi el hozzánk egy „utolsó útra", 
ezért ha egy ilyen lemez befuccsol, ak¬ 
kor az nem meglepetés. Déván, aki ta¬ 
lán újonnan vásárolt, drága lemezt 
„áldoz" fel, hiába. Feltétlenül el kell 
oszlatnunk egy félreértést: a High 
Density (HD) jelzésű lemez nem egy¬ 
szerűen jobb felbontású (és drágább) 
a DD (dupla sűrűségű) lemeznél, ha¬ 
nem más fajtájú is. A H D típusú lemez 
a Commodore lemezegységekben 
NEM használható, hanem a PC-k 1,2 
MB kapacitású lemezegységeihez 
való! Az ilyen lemezre íráskor többnyi¬ 
re nem kapunk hibajelzést, a felvett 
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anyag még sincs biztonságban. Egyál¬ 
talán nagyon ajánlhatjuk a fontos, vagy 
beküldött másolatok ellenőrzését visz- 
szaolvasással. Meg kell jegyeznünk, 
hogy a két beolvashatatlan program 
egyéb okból sem vehetett volna részt az 
értékelésben. 

A játékok témaválasztása nem volt 
igazán ötletes. Kiugró többségben kap¬ 
tunk otelló és amőba programokat, de 
érdekes módon a legjobb pályázatok 
eredetibb ötletekre alapultak. 

Az értékelés során különböző súly- 
lyal, de számított az ötletesség, a prog¬ 
ram megjelenése (kép, hang), a kezel¬ 
hetőség, a hibavédelem, a szolgáltatá¬ 
sok, a jó dokumentáció és a program 
áttekinthető szerkezete. 

Volt, aki megoldotta, hogy a prog¬ 
ram joystickkel is kezelhető legyen, de 
ez néha a kezelhetőség kárára vált, a 
lassúsága miatt. Biztosan sokan mond¬ 
tak már le egy mutatós játék tartós 
használatáról a nehézkessége miatt, 
ezért érdemes egy program kezelését 
alaposan megtervezni, és főleg sokat 
próbálgatni. Így kiderülhet az is, milyen 
kényelmetlen, ha egy játszmát nem le¬ 
het félbeszakítani, feladni, amire is csak 
egy-két programban találtunk lehe¬ 
tőséget. 

A hibavédelem leggyengébb pont¬ 
ja a Stop billentyű kikapcsolása, alig 
néhány program szerzője gondolt erre. 
Az, hogy a program kezelője ne követ¬ 
hessen el hibát, szabálytalan művele¬ 
tet, elemi fontosságú, nemcsak a já¬ 
tékprogramokban. Érvényes ez a futás 
során a lemez használata közben eset¬ 
leg felmerülő rendszerhibákra is, ame¬ 
lyek kivédésére egy kísérlettel sem ta¬ 
lálkoztunk. 

Szívesen láttunk volna több alap¬ 
vető, vagy éppen ötletes extra szolgál¬ 
tatást. Nagyon vonzó lehet például egy 
feladat teljesítésének számszerű érté¬ 
kelése, és a legjobb eredmények ki- 
menthetősége lemezre vagy kazettára. 
Nem sokan próbálkoztak meg a magyar 
szöveg ékezetes megjelenítésével, és 
csak alig néhányan új karakterkészlet 
beépítésével, pedig ennek módszerei 
már régen ki vannak dogozva. 

A pályázat egyik fő célja volt átte¬ 
kinthető és a többi olvasó által jól érthe¬ 
tő szerkezetű programok megjeleníté¬ 
se. így tehát jelentős előnyt élvezett a 
RÉM utasításokkal tördelt, kevés hosz- 
szú ugrással tarkított, ésszerű felépíté¬ 
sű program. Kellemes meglepetésünk¬ 
re a legjobb helyezéseket elért progra¬ 
mok között találhatók mintaszerűen 
megszerkesztettek is, mindenki okulá- 
’sára (Koszper Vilmos, Alexay Péter, 



Szaszkó Péter munkái). Sajnos szinte 
mindenki ránk hagyta a programok szö¬ 
vegének szóközökkel való tagolását, 
ami megjelenéskor pedig előnyös. Bár 
nézetünk szerint felesleges a BASIC 
szöveget kettőspontokkal, vagy más 
módon beljebb kezdett sorokkal tagol¬ 
ni, mégis dicséretet érdemel, aki ilyen 
munkára sem sajnálta az erejét. 

Sajnos megfigyelhetjük, hogy a 
kiírásnak az a része, amely megtiltotta 
gépi kódú programok beillesztését, sa¬ 
játos beállítottságot eredményezett a 
pályázókban. Volt, aki ki is jelentette, 
hogy még POKE utasítást sem akart 
emiatt alkalmazni, ennek következté¬ 
ben elmulasztva a háttérszín beállítását 
is. A gépi kódú program és a BASIC- 
ben közvetlenül nem kezelhetőén elhe¬ 
lyezett adatok két teljesen eltérő foga¬ 
lomcsoport. Egyáltalán nem sértette 
volna a pályázat szabályait az a nagyon 
praktikus megoldás, hogy a program a 
karakterkészlet vagy sprite-ok adatait 
nem generálná hosszasan a DATA so¬ 
rokból, hanem készen töltené be le¬ 
mezről. Ezzel a technikával akár nagy- 
felbontású grafikus háttereket is lehe¬ 
tett volna használni, mivel ezek előké¬ 
szítése nem volt BASIC-ben kötelező. 
Egy sprite adatait nem nevezhetjük gé¬ 
pi kódú programnak. 

Itt vissza kell térnünk egy pillanatra 
a pályázat feltételeinek betartásához. A 
programok elbírálói között heves vitára 


adott okot három dolgozat egy-egy kis 
hiányossága. Badenszky Csaba Táblás 
játéka tartalmaz egy SYS utasítást, 
amely a kurzor helyének beállítására 
szolgál. Mivel a program egyéb tekin¬ 
tetben határozottan jól sikerült, nem 
tűnt teljesen igazságosnak a dolgozat 
kizárása, főleg mert a hívott szubru¬ 
tin egyenértékűen kiváltható egy-két 
BASIC sorral. Büntetést érdemel a fi¬ 
gyelmetlenségéért, így a megismételt 
összevetésben a program már súlyos 
mínuszokkal vett részt, ennek ellenére 
2. helyen végzett. Hasonlóan hátrány¬ 
nyal indult Szaszkó Péter Zsírozása, 
amelyhez a szerző gondosan kidolgo¬ 
zott dokumentációt mellékelt, az algo¬ 
ritmus bemutatása nélkül; és Décsi Ta¬ 
más Reversije, amely az algoritmust 
szintén nem tárgyalja meggyőzően. A 
háborgó kedélyek lecsillapítására leszö¬ 
gezzük, hogy ilyen engedményt csak 
kiemelkedően jó pályázatok esetében 
tartottunk méltányosnak. 

Összességében megállapítható, 
hogy a pályázat elérte a célját, és a leg¬ 
jobb helyezéseket azokra valóban mél¬ 
tó programok között oszthattuk el. Kár, 
hogy nem okozott nagyobb gondot a 
legjobbak kiválasztása. Ennek ellenére 
olvasóink néhány valóban érdekes, ta¬ 
nulságos és új játékprogrammal lehet¬ 
nek gazdagabbak, és remélhetőleg sok 
hasznos tapasztalattal a BASIC nyelv 
professzionális programozásáról. 



Szomszéd játék 


Program nyelv: C64 BASIC és C PLUS/4 BASIC közös 
része. 

Gép: Fut C64-en és C PLUS/4-en. 

A játékról Vargha Balázs könyveiben lehet olvasni (pl. 
Játékkoktél). A játék megvalósított változata kissé eltér a 
könyvben leírttól. 

Szabályai: 

A játékot egy nyolcszor nyolc négyzetből álló táblán 
játssza két játékos. 

A tábla kezdetben üres. A játékosok felváltva lépnek. A 
lépés abból áll, hogy a játékos a táblán egy négyzetlapkával 
letakar egy mezőt. Ez a lapocska aztán a játék végéig a helyén 
marad. A játékos nem teheti tetszés szerinti helyre a lapocs¬ 
kát. Először is nem teheti olyan mezőre, ahol már van lapocs¬ 
ka. És nem teheti olyan mezőre sem (a képernyő és a karakte¬ 
rek színét nem állítja be), amelynek közvetlen, oldalával érint¬ 
kező szomszédja már le van takarva. 
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10 RÉM SZOMSZÉD JÁTÉK 
20 RÉM KOSZPER VILMOS,1902 
Q 30 RÉM 1992.7.19-1002.0.30 
40 : 

130 : 

O 190 REM«*****»******************’****** 

200 rém fo előkészítő rész 

210 G0SUB470 
O 220 G0SUD7GŰ 
230 G05UBS60 
240 GOSUBl120 

O 250 RÉM*»****»*»**'******************** 

260 RÉM* ********************* ******** * 

270 RÉM FOftEGZ 
Q 230 :1K PX>0 THEN350 
230 G0SUB2340 
300 G0SUB8010 
U 310 GOSUB8080 
320 GOT0280 

330 REM*»*«********<********** ******** 

O 340 RÉM* ************* * * *■ * * * * * * * * * * * * * * 

350 :RÉM BhTEJEZES 
n 360 PR INT ”Li; 

u 370 X«5:Y-10 

380 TXí. = ” , , , j 

n 390 GOSUBl1 GO 

U 400 X=5:Y=1I 

410 TX3> “”JO JÁTÉK VOLT! VISZONTLÁT ASRA! ” 
n 420 GOSUBl160 

430 RÉM******************************* 

440 : 

O 450 CND 
4G0 : 

470 :RÉM DEKLARÁCIÓK 
O 480 PLUS4"0:RÉM PLUS4 VAGY C64 
490 P*Ö:RÉM VALÓSZÍNŰSÉG 
500 AB“0:RÉM EPPEN MELYIK JÁTÉKOS 
o 510 SZ*0:WE*0:LP”0:RÉM SZÁM,ÉRTÉK,LEPTETO q 

520 X=0:Y=G:XT=0:YT«0:XC»0:YC-0:XI“0:YI*0:XQ-0:YQ-0:RÉM KÉP- ES TABLAKOORDIN ATAK 
530 JX =0:SX =0:PX «0:RÉM KELTETELEK 

O 540 0-0:QQ*0:QtJ *0:RÉM ÁTMENETI Q 

550 KL"0:RCM KŐTELEZŐ LÉPÉG 

560 FI=0:F2=0:l-3«0: F4=0:Dl=0:D2”0;D3-0:D4=0:BS=0:RÉM ERTEKELO EV.-HEZ 


O 570 DlM TA(9,9 ) ,TB(8,8):RÉM A TABl.A BELSŐ MEGJEI.EMITESE O 

580 DIM JK(1 ), J L(. 1 ) ,GK< 1 ), GL< 1 ), PH(1 ), l'P(1 > , NY(1 ) 

590 Dl M PE(1 ) > ML’< 4 ), MO< 4 ), MO(4 ), LW(2,2) 


o 

600 

D1 M J A$<6 ): KÉM SZOVEGKONST 

O 


610 

DIM (AH 11,1 ):KÉM GYŰRŰKHÖZ 


o 

620 

FÓR J-0 10 11:READ GY< J>0J,0Y<J,1>:NEXT J 


630 

J AJ. (0) •-"EMBER” 

O 


640 

JAK 1)«”P-PRG” 



650 

JAK2)=”C|-PRG” 

O 

o 

660 

J A1(3)*”K-PK6” 


670 

JAK 4 ) ””51 PRO” 



680 

JAK5)»”S2PRG” 

O 

o 

690 

JAtOj)””5CrRG” 


700 

JLÍ (0 )””0DA-” 


o 

710 

JLM1 )»’’-VISSZA” 

o 

720 

JLK2 )=”-” 


730 

KETURN 


o 

740 

750 

DATA -1,0,0,-1,0,1,1,0,-1,-1,-1,1,1,-1,1,1, -2,0,0,-2,0,2,2,0 

o 


700 

:RÉM PLUS4/C64 


o 

770 

PRINT CHRK 142 ) > CHR4 (8)1 

o 

780 

PR 1 NT ”ÜA”; 


790 

0-PEEKC3072) 


o 

800 

PRINT ”uB”; 

o 

810 

XC-211 


820 

IF Q=1 AND PEEKC3072)«2 THEN PLUS4=1:XC=202 


o 

830 

YC*XC+3 

o 

840 

KETURN 


850 

: 


o 

860 

•• RÉM ALLANDOABRA 

o 


870 

PRINT ”8K1T; 


880 

PRINT” , , ,” 


o 

890 

PRINT” SZOMSZÉD JÁTÉK ^ ABS 

o 


900 

PRINT” ,” 


910 

PRINT” r—r— r-T-T—I-T— r —1 ŰJATSZ: S 


o 

920 

PRINT” 1 1 1 1 1 1 1 1 1 , ,” 

0 


A játék akkor fejeződik be, ha már a játékosok nem tud¬ 
nak új lapocskát letenni. A játék végén a táblán szabad és 
lefedett négyzetek láthatók rendszertelen eloszlásban. Mivel 
a két játékos egyforma lapocskát használt, azt egyáltalán 
nem tudjuk, hogy menet közben ki melyiket rakta le, de ez 
nem is érdekes. Az üres mezőket kell nézni. Egy-egy üres 
mező letakart szomszédainak száma egy, kettő, három vagy 
négy. 

Az egyik játékos törekedhet arra, hogy például minél 
több olyan üres mező legyen, melynek csak egyetlen letakart 
szomszédja van, míg a másik arra, hogy a négy szomszédos 
üres mezők legyenek sokan. Ebben a két játékosnak a játék 
elkezdése előtt kell megállapodnia, csak az a lényeg, hogy 
különböző számú szomszédot válasszanak. Az a játékos 
nyer, amelyiknek a játék végén több üres mezeje lesz, a maga 
választotta számú szomszéddal. Az esélyek nem egyenlőek, 
ezért oda- és visszavágót kell játszani. 

A program használata 

A program kirajzolja az üres játéktáblát. A tábla mellett 
jobb oldalon a két játékosra (A, B) két oszlopba írja a vonat¬ 
kozó adatokat. 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


930 

PRINT” 

1 -+- 

-1—1-4 

-4-4-4—1 

13) ATEK 

n 

940 

PRINT” 

1 1 

1 1 1 

Ilii” 



990 

PRINT” 

1 -+- 

•4-4-4 


I33Z0M: 

□ 

960 

PRINT” 

1 1 

1 1 1 

iiii” 



970 

PRINT” 

l-H— 

- 1 — 1—1 

-4-4—1—1 

IÍ1M03T: 


930 

PRINT” 

1 1 

1 1 I 

Ilii” 



930 

PRINT” 

I-+- 

-1—1-4 

-4-4—1-4 

HPONT: 

n 

1000 

PRINT” 

1 

1 1 

1 1 1 1 1 



1010 

PRINT” 

1 — 



13NYERT: 2 

1020 

PRINT” 

1 

1 1 

1 1 1 1 1 

* 


1030 

PRINT” 

1 — 

—4—1- 

4 - 4 - 4 — 1-4 

* 


1040 

PRINT” 

1 

1 1 

1 1 1 1 1 



1050 

PRINT” 

1 — 


4-1—1—1—1 



1060 

IP PLUL 

4 >0 

TIIEN 

PRINT ’TLUS/4”:GC 

3TO 


Minden szükséges adatot a következő biHentyűkkel le¬ 
het megadni: 

kurzorvezető nyilak (adatmódosítás) 
return (adatok véglegesítése) 

X (továbblépés) 

Y új sorozata kezdődik a játékoknak 

W vége a játéknak. 

A jobb oldalon az adatok jelentése: 

JÁTSSZ: a játékos kijelölése 

lehet: EMBER emberi játékos 


1070 
1080 
1030 
1100 
11 10 
1120 
1130 
1140 
1150 
1160 
1170 
1130 
1 190 


PRINT”C64” 

:PRINT” I I I 
PR INT” 

RETURN 


I I I I I I’ 


L — _L—J. — 


- -L— _L—J * 


: RÉM EGYE ti ELŐKÉSZÍTÉS 

PX-0:RÉM PRG KILÉPÉSI KELTETEL 

RETURN 


P-PRG 

Q-PRG 

R-PRG 

S1PRG 

S2PRG 

S3PRG 


:RÉM SZÖVEG X,Y,TXS 

IK XC=0 0R YC =0 THEN STOP:REII KÉSŐBB KIIKTATANDÓ ELLENŐRZÉS 
POKE XC, X: POKE YC,Y:PRINT ’USKTXIb; 

RETURN 


különböző gépi stratégiák 

O 

O 


o 

1200 

1210 

:RÉM ÜZENET A JÁTSZÓKRÓL 

1220 

X»1:Y*21;TXS'”A JÁTSZOK Ki VÁLASZTÁSA 


1230 

GOSUB1160 

o 

1240 

X=1:Y=20:TXi*” > , > »” 

1250 

GOSUBI160 


1260 

RETURN 

o 

1270 

1280 

:RÉM ÜZENET TOKLESE 


1290 

X-1:TX1-” 

o 

1300 

Y=21:GOSUBI160 


1310 

Y=20:GOSUBI160 


1320 

RETURN 

o 

1330 

1340 

•RÉM AKTU SZÖVEG TÖRLÉSÉ 


1350 

X-l:TX$=” 

o 

1360 

Y=23:GOSUBI160 


1370 

Y=22:GOSUBI160 

o 

1380 

RETURN 

1390 

1400 

:RÉM JKIRA5 


o 

1410 

TXl-JAMJKI AB) ) 

1420 

Y-3:X=23+AB*6 


1430 

GOSUBI160 

o 

1440 

RETURN 

1450 

1460 

:RÉM * Q SZERINT 


o 

14 70 

TX1-” ” 

1480 

X = 1t(l-Q)*12:Y-23 


1490 

GOSUBI160 

o 

1500 

TXS-”*” 


1510 

X-l K3*12: Y-23 


1520 

GOSUBI160 

o 

1530 

RETURN 


1540 

1550 

:RÉM PRG QQ SZERINT 

0 

1560 

TXS-J At (OQ) 

1570 

X-l4:Y-23 


1580 

GOSUBI160 

o 

1590 

1600 

RETURN 


1610 

;RÉM JÁTÉKOS AB SZERINT 

o 

1620 

TXS - ”181 ClIRt < 65 * AB) + ”E! 


1630 

X«2:Y-23 


1640 

GOSUBI160 

o 

1650 

1660 

RETURN 


1670 

:RÉM 1NPJAT5Z1E 

o 

1680 

GOSUBI460 


1690 

GOSUBI550 

o 

1 700 

GOSUBI610 

1710 

QI-”” 


1720 

RETURN 


O 

O 

O 

O 

O 

O 

teljesen szabadon lehet választani, mindkét játékos lehet 
gépi program is vagy ember. 

JÁTÉK: jelzi, hogy odavágó-e vagy visszavágó. 

SZOM.: itt jelöli, hogy melyik játékos hány szomszé¬ 
dos üres négyzetet választott. 

MOST: az aktuális játszma pontjainak száma. 

PONT: az odavágó és visszavágó összetett pontjainak 
száma. 

NYERT: amíg a játékosok azonosak, gyűjti, hogy ki 
hány játszmát nyert (győzelem = 2 pont). 

A képernyő alsó sorai az üzeneteket mutatják. 

* * * 

A gép stratégiái 

P-PRG. Kezdete: 4240. sor. 

XT és YT fogja tartalmazni a „kiszámított" koordinátá¬ 
kat. Teljesen véletlenszerűen választja ki a lehetséges helyek 
közül azt, ahova le kell rakni a következő lapot. 

A 4300. sorban van egy rövidzár. A M E(0) változó tartal¬ 
mazza azoknak az üres mezőknek a számát, amelyeknek 
még nincs szomszédja, vagyis ahova még le lehet rakni. Ha 
ez kisebb 5-nél, a legelső lehetséges helyre lerakja a fekete 
vagy sötét lapkát. 

Q-PRG. Kezdete: 4400. sor. 

Mindjárt a 4410. sorban vagy egy elugrás a P-PRG-ra, 
a RANDOM stratégiára. Ez a feltételes elugrás a KL tartalmá¬ 
tól függ (KL = kötelező lerakni). A KL akkor válik nem zéró¬ 
vá, ha a táblán már csak olyan szabad mezők vannak, ahova 
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1730 : 

1740 :RÉM Q=0 ÉLJ 
1750 AB = 1 -AB 
1760 GOSUBIOIO 
1770 RETURN 
1780 ; 

1790 : RÉM QQ- 

1800 QQ*QQ-1 

1810 IE Q0.<0 TKEN QQ-6 

1820 G051JC1550 

1830 RETUKN 

1840 : 

1850 :RÉM QQ+ 

1860 QQ-QQH 

1870 (F QQ>6 THEN QQ-0 

1880 G0SUB1550 

1890 RETURN 

1900 : 

1910 : RÉM FELI 

1920 IF Q=0 THEN G05UB1740 :RETURN 
1930 GOSUB)790 
1940 RETURN 
1950 : 

1960 :RÉM LEI 

1970 1F 0|=0 THEN G0SULU 710 : RETURN 
1980 GOGUB1850 
1990 RETURN 
2000 : 

2010 :RÉM SZETVAL0GATA5 
2020 IF Q'1-”EJ THEN GOSUB 1910 : RETURN 
2030 IF Q1 = ”S) THEN G0SUD1960 : RETURN 
2040 IF Ql-”11 THEN Q-l:GOSUB1460 :RETURN 
2050 IF QS.»”U THEN Q=0:G0SUH1460 i RETURN 
2060 IF QS-CHR1<.13> THEN JK( AB) ~QQ: GOSUB 1400 
2070 RETURN 
2000 : 

2090 :RÉM INPJÁTSZIT 

2100 :IF Q1=”X” OR Q1CHRM13) THEN RETURN 

2110 GET Ql 

2120 GOSUB2010 

2130 GOT02100 

2140 : 

2150 :RÉM 1NPJATSZ1 

2160 :IF Ql=”X” THEN RETURN 

2170 G0SUB1G70 

2180 GOSUB2090 

2190 G0T02160 

2200 : 

2210 : RÉM JÁTSZOK', UJ SOROZAT 

2220 FÓR AB=0 TO 1 

2230 GOSUB1400 

2240 NEXT AB 

2250 G0SUB3000 

2260 Q=0:QQ=0:01="”:Aö*0 

2270 X =4:Y=23:TX1="JÁTÉKOS: (NYILAK, 

2280 G0SUB1160 

2290 X=4:Y=22:TX1=” , ,” 

2300 G0SUB1160 
2310 C05UB2150 
2320 RETURN 
2330 : 

2340 :RÉM JMASOROZAT ELŐKÉSZÍTŐ 

2350 SX-0:RÉM SOROZAT KILÉPÉSI FÉLTÉTEL 

2360 NY(0 >=0:NY(11=0:SKCO)-1:SK(1) = 1 

2370 GOSUB1210 

2380 G0SUB2210 

2390 Ql=”” 

2400 G0SUB1280 
2410 GOSUB)340 
2420 G0SUB2450 
2430 RETURN 
2440 : 

2450 :RÉM NYERT 

2460 X =29:Y=13:TX1-STK1(NY(0)) 

24 70 TX1-TX1+” 

2480 TX1=LEFT1< TX1,4) 

2490 G0SUB1160 

2500 X-35:Y-13:TX1-STR1CNYU>) 

2510 TX1=TX!+” 

2520 TX1=LEFT1(TX1,4) 


előbb-utóbb mindenképpen le kell rakni a lapkát. (Ezek azok 
a mezők, amelyek még üresek, nincs letakart szomszédjuk, 
de mégsem lehet melléjük lerakni, mert üres szomszédaik 
már tiltott mezők.) 

A Q-PRG stratégiája nagyon egyszerű. Megnézi, ho¬ 
gyan változik meg a tábla képe (saját szempontjából) a leg¬ 
előnyösebben, ha a következő lépésben lerak. Megvizsgálja 
az összes lehetséges lépést és egy háromsoros tárolóba rakja 
a legjobbakat (LW mátrix). Ha a legjobb lépésekből több 
van, mint három, akkor csak az első hármat hagyja meg. Ha 
végigvizsgálta a táblát, véletlenszerűen választ a három leg¬ 
jobb közül. 

LW (P, 0) telel meg az X koordinátának 

LW (P, 1) - » - Y 

LW (P, 2)-ben van az érték (a lépés értéke) 

A Q-PRG szűk látókörű (bár jobb mint a P-PRG), mert 
csak egy lépést lát előre. 

Az P-PRG hasonló a Q-PRG-hez. (Kezdete 4900). 

Egy különbség azért van. Mielőtt végigvizsgálná az 
összes lépóslehetőséget, a kötelező lépéseket végrehajtja 
(de természetesen a számítások után visszaveszi). 

Az S1PRG, S2PRG, S3PRG lényegüket tekintve egyfor¬ 
mák, a köztük lévő különbséget a kiértékelés számszerűsége 
adja. (Kezdet: 5380, 5410, 5440.) 

Az S stratégiák — először végrehajtják a kötelező lépé¬ 
seket (melyeket a számítás végeztével visszavesznek). Az¬ 
után megvizsgálják az összes lehetséges lépést, de nemcsak 
a közvetlen szomszéd, hanem a szomszéd szomszédját is fi¬ 
gyelembe véve. 

A kiértékelőben (MEZOERTEKELES 5550. sor) a szom¬ 
szédok szomszédait az FI, F2, F3, F4, Dl, D2, D3, D4 tekin¬ 
tetbe vételével, a szomszédokat a BS tekintetbe vételével ve¬ 
szi figyelembe. 

Megjegyzés a programlistához: 

Kettőspontok tagolják, elválasztják a modulokat. Ket¬ 
tőspont vezeti be azt a sort, amelyre hivatkozás történik 
GOTO-val, GOSUB-bal, THEN nel. 

Koszper Vilmos 
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o 
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o 
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o 


o 


o 

o 

o 

0 


2530 

GOSUB1160 

3330 

FÓR Yl-1 TO 3 

o 

2540 

RETURN 

3340 

FÓR XI ”1 TO 8 


2550 

: 

3350 

TA(XI> YI >"0:G0SUB36G0 

o 

25G0 

:RCM JL11R 

3360 

NEXT XI 

2570 

X=28: Y»5:TX1-JL1UJ ) 

3370 

NEXT YI 


2530 

GOSUBl160 

3330 

G0SUB2560 

o 

2530 

RETURN 

3390 

GOSUB2920 

2600 


3400 

GOGUU1280 


2610 

:RÉM TORLESEK 

3410 

RETURN 

o 

2620 

FÓR AB-0 TO 1 

3420 

; 


2630 

PPCAB)-0;PMC AB ) =0 

3430 



2640 

NEXT AB 

3440 

TXl = ”UU+CHRJ>(Gb + AB)+”2 JÁTÉKOS <"+JAXCJKCAB)) +”) LEP.” 

2650 

RETURN 

3450 

X =2: Y«23: GOSUBl 160 


2660 

; 

3460 

TXl-“” , , 


2670 

:RÉM SL1R 

3470 

X-2:Y”22:GOSUB1160 

o 

2630 

TX£“CIIR1>(48CSL(JJ )) 

3480 

RETURN 


2630 

X=30+JJ*6:Y*7 

3490 



2700 

G0SUU1 160 

3500 

:RÉM KURZORT IR 

0 

2710 

RETURN 

3510 

TX1=”S” 


2720 


3520 

IF TA(XI > Yl) “0 THEN TX 

0 

2730 

:RÉM PM1R 

3530 

GOSUB3660 

2740 

TXS-STRt(PMCJJ)) 

3540 

RETURN 


2750 

GOSUB2870 

3550 

; 

0 

2760 

X“29tJJ*6:Y”9 

3560 

:RÉM LAPKAT IR 

2770 

G0SUB1160 

3570 

TXS>”Ű 2 


2730 

RETURN 

3580 

G05UB36G0 

0 

2790 

; 

3590 

RETURN 

2300 

:RÉM PPIR 

3600 



2310 

TXl=STR1< PP < J J)) 

01610 

:RCM SZOKOZT IR 

0 

2320 

G0SUB2870 

3620 

TX1“” ” 

2330 

X=29+JJ*6:Y-l1 

3030 

GOSUB36GO 


2340 

G0SUB1160 

3640 

RETURN 

0 

2550 

RETURN 

3650 


2860 


3660 

:RÉM A TABLARA IR 


2870 

:RÉM TX ADJUSZT 

3670 

X “XI*2+1:Y"Y1*2'2 

0 

2880 

TXS>“”00”+TX1 

3680 

GOSUB1160 

2330 

TX 1>=RI GHT'i> (TX 1 j 2 ) 

3690 

RETURN 


2900 

RETURN 

3700 


o 

2910 


3710 

:RCM ODÉBB A KZ 

2920 

:RÉM MINDIR 

3720 

Q“TACXi,Y1 ) 


2930 

FÓR JJ“0 TO 1 

3730 

IF Q=0 THEN GOSUB3610 ;RETURN 

o 

2940 

GOSUB2670 

3740 

IF Q“10 THEN G0SUB3560 :RETURN 

2950 

C05UB2730 

3750 

TX1=CI IR1C48+Q) 


2960 

G0SUB2800 

3760 

G0SUB36G0 

o 

2970 

NEXT JJ 

3770 

RETURN 


2930 

RETURN 

3730 


o 

2990 


3790 

: RÉM INPUT KÖZEPE 

3000 

:RÉM --IR 

3800 

YI = 1 


3010 

JJ =2:G0SUB2560 

3310 

: XI =* 1 

o 

3020 

RETURN 

3320 

:IF TACXI > YI)>0 THEN4Ö50 

3030 


33<j0 

: GOSUB3500 


3040 

: RÉM JATSZMAPAR ELŐKÉSZÍTŐ 

3340 

: GET Űt 

o 

3050 

G0SUB2610 

3850 

IF TIIEN3930 

3060 

G0SUB3000 

3360 

IF THEN3960 


3070 

G0SUB2920 

3870 

IF THEN3990 

o 

3030 

G0SUB8550 

3üü0 

IF QS-’\!) THEN4020 

3090 

RETURN 

3890 

IF QXOCIIRK 13 ) TIIEN3840 


3100 


3900 

IF. TACXI >YI >>0 TIIEN3840 

o 

3110 

:RÉM OUAELOKCSZ 

3910 

XT"X1 : YT“Y1 

3120 

JJ-0:SL(0)-SK(0):5L(l)“SK<1 > 

3920 

RETURN 


3130 

PECO ) -0 : PEC1)"0 

3930 

: IF XI>7 THEN3840 

o 

3140 

GOTO3190 

3940 

GOGUB371 0 : XI »XI ♦ I 

3150 

: 

3950 

G0T03830 


3160 

: KÉM VI55ZAEL0KESZ 

3960 

: I F X I <2 TIIEN3840 

o 

3170 

JJ-1 :SI..(0 1-SKrl ): SLC1 >»SK<0) 

3970 

G0SUB3710 : XX = X1 — 1 

3180 

PE(0 ) -PM(0):PE< 1 )=PMf1 ) 

3980 

G0T03830 


3190 

: JX«0:KL»0:REH KŐTELEZŐ I.EPES 

3990 

;IF YI <2 TIIEN3840 

o 

3200 

TXi”"NÉHÁNY MÁSODPERC. VÁRAKOZÁS!" 

4000 

GOSUB3710 : YI =Y1-1 

3210 

X-1:Y-21:GOSUBl160 

4010 

G0T03830 


3220 

txj.»” > , , > »" 

4020 

:UF YI >7 T1ICN3840 

0 

3230 

Y“20 : GOSUB1160 

4030 

GOSUB3710 : YI=YIi1 


3240 

FÓR J‘l TO 4 

4040 

G0TO3330 


3250 

ME ( J ) *0 

4050 

:X1=XH1 

0 

3260 

3270 

NEXT J 

ME ( 0 ) "64 

4060 

IF XI < =8 THEN3S20 

1 




3280 

PM(0 ) =0:PMC1 ) =0 


o 


3290 

FÓR J-0 TO 9 




3300 

TA (J , 0 1« 20 : TA ( 0, J )= 2 0 : T A C J , 9 ) = 2 0 : T A C 9, J ) 

o 


3310 

NEXT J 



3320 

TX1=” ” 
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c 
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o 
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4 OVO 
4080 
4090 
4 100 
4110 
4120 
4130 
4140 
4 150 
41 GO 
41 70 
4130 
4190 
4200 
4210 
4220 


YI = Y1 ti 

IF YI >8 THEN 

G0TÖ3S10 


•TOP 


: KÉM INPUT PL.OK 
X ■ 1: Y*21: TXJ> -”NY1 LAK■ 
G0SUÜ1160 
X«l:Y*20:TXt*” 

GOöULIl 1G0 
RETURN 

:KLM INPUT 
G0SUB41 10 
GOSUB3790 
GOSUBI280 
RETURN 


HELYKERESÉS, RETUKN=IDE! ’ 


O 

O 

O 

O 

O 

o 


4230 

4240 

; RÉM P-PKG C RALIDON .1) 



o 

4250 

YI-ItINTÍ 8 *RNDC 8 )) 

4870 

LWCLP > 0 ) =X I:LWC LP >1 )-YI:LWCLP,2)=WE 

4260 

XI-1<1NT< 8 * RND < 811:G0T04290 

4880 

RETURN 


4270 

: YI -1 

4890 


o 

4280 

:X1=1 

4900 

:RÉM R-PRG 

4290 

:IF TA(X1,YI)>0 THEN4340 

4910 

IF KL>0 TUEN4240 


4300 

IF MEC0X5 OR KL>0 THEN4320 

4920 

G05UB5090 

Q 

4310 

P*RND(5):IF P>,1 TUEN4340 

4930 

IF ME(0X1 TUEN GOSUB4980 :C0SUB4240 : RETURN 

4320 

:XT-X1:YT=YI 

4940 

GOSUB4400 


4330 

RETURN 

4950 

GOSUP.43SO 

o 

4340 

:XI=XI<1 

4960 

RETURN 


4350 

IF XI< =8 THEN4290 

4970 



4360 

YI=Y1t 1 

4980 

:RÉM VISSZAÁLLÍT 

o 

4370 

IF YI >8 TIIEN4270 

4990 

FÓR 52=0 TO 4 


4380 

GOTO4280 

5000 

ME CSZ)=MB(S2) 


4.390 

: 

5010 

NEXT 52 

o 

4 400 

: REH Q-1'RG 

5020 

FÓR YI=1 TO 8 


4410 

IF KL>0 THEN4240 

5030 

FÓR XI=1 TO 8 


4420 

G0SUB4620 

5040 

TAC XI> YI)'TBC X1> YI> 

o 

4430 

FÓR YI=1 TO 8 

5050 

NEXT XI 


4440 

FÓR XI-1 TO í! 

5060 

NEXT YI 


4450 

IF TACXI > YI >>0 TMEN4520 

5070 

RETURN 

o 

4 4 GO 

SZ-TACX1t],YI):GOSUB4680 

5080 



4470 

SZ-TAÍX1 -1, YI ): COGUB4G30 

5090 

:RÉM BEILLESZTÉS 

o 

4480 

SZ'TACXl,YIil):C0SUB4680 

5100 

FÓR 5Z=0 TO 4 

4430 

S2=TAC XI,YI-1):GOSUB4G80 

5110 

MB(52)=ME(52) 


4500 

G0SUB48I0 

5120 

NEXT 52 

o 

4510 

G0SUB4740 

5130 

FÓR YI=1 TO 8 

4520 

:NEXT XI 

5140 

FÓR XI=1 TO 8 


4530 

NEXT YI 

5150 

TBCXI,YI)=TA(XIj YI) 

o 

4540 

G0SUB4570 

5160 

NEXT XI 

4550 

RETURN 

5170 

NEXT YI 


4560 


5180 

FÓR YI =1 TO 8 

o 

4570 

: LP=LP+1: IF L.P>3 TUEN LP=3:REM LKI VÁLASZT 

5190 

FOK XI=1 Tu 8 

4580 

P=INT(LP*RND(5)) 

5200 

IF TAC XI > YI )>0 TIIEN'X'GU 


4530 

XT=LW(PiO): YT-LWCIS 1 > 

5210 

IF TACX I -1 > YI ) -0 TI IEN5260 

o 

4600 

RETURN 

5220 

IF TACXI+1>YI)=0 TUEN5260 

4G10 


5230 

IF TACX1> YI-1 )=0 TUEN52G0 


4620 

: RÉM LWTORL 

5240 

IF TAC XI , YI ti ) *0 TIIEN5260 

o 

4630 

FÓR 52=0 TO 2 

5250 

G05UB5300 


4640 

LWC 52 > 21”-1000 

5260 

:NEXT XI 


4650 

NEXT 52 

5270 

NEXT YI 

o 

4660 

RETURN 

5280 

RETURN 


4670 

: 

5290 



4680 

:RÉM MEBE 

5300 

:RÉM LERAKÁS 

o 

4690 

IF 52>3 TUEN RETURN 

5310 

TACXI>YI) = 10:ME < 0) = MC C 0)-1 


4 700 

MECSZH XMECSZH > U 

5320 

XQ=XI-1:YQ=YI:GOSUB6250 


4710 

HOC52ti)=HOC 5211 ) + l 

5330 

XQ=X1 ti;YÚ=YI:GOSUB6250 

o 

4720 

RETURN 

5340 

XQ=XI:YQ=Y1-1:GOSUB6250 


4730 

: 

5350 

XQ=XI:YQ=YIti:G0SUB6250 

0 

4 740 

:RÉM MEGISSZA 

5360 

RETURN 

4750 

FÓR SZ=1 TO 4 

5370 



4 760 
4770 

ME(S2)=MEC52>-M0C5ZJ 

MOCS2XO 

5380 

:RÉM S1PRG 

o 


4790 RETURN 
4300 : 

4810 :RÉM ERTEKJEGY2ES 
4320 WE-MECSLCAB) )-ME(5L(l -AB>) 
4830 :1F WE <LWtO,2) TUEN RETURN 
4840 LP “LP 11 

4850 IF WE>LWC0,2> TUEN LP=0 
4860 1F LP>2 TUEN RETURN 


O 

O 

O 
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5300 
5400 
5410 
5420 
5430 
5440 
5450 
5450 
5470 
5430 
5400 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5530 
5500 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5630 
5600 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5730 
5790 
5800 
5310 
5820 
5830 
5840 
5850 
5360 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
61 10 
6120 
b 130 
6140 
6150 
6160 
6170 
6180 


FI =1 : F2-2: F3-3: F4-4 ; Dl -1 ; D2 - - 2: D3" -3: I.M = - 4:115 = 10: KÉM ERTEKELO FV. -ITEZ 
:RÉM S2PRG 

FI =1 :F2»1:F3-1 : F4- 1 : Dl --1: D2 = -1 : D3--1: D4 --1 : BS-10: RÉM ERTEKELO FV. -MEZ 
Írem 53prg 

FI-0:F2-0:F3-0:F4-0:Dl=0:D2-0:D3-0:D4-0:BS-1:RÉM ERTEKELO FV.-HE^ 

IF KL>0 THEN4240 

G0SUD4620 

G0SUB5090 

1F ME(0)<1 TIIEM KL-1:G0SUB1980 :GOSUB4240 ;RETURN 
G0SUB5830 
G0SUB4570 
G05UB4980 
RETURN 


o 

o 

o 

o 


:RÉM MEZOERTEKELES 
EU-Ü 

FÓR J-0 TO 11 
XQ-GY(J,0) 

11- XQ<1 OR XQ >8 TIIEN5800 
YQ-GYÍJ,1) 

1F YQí1 OR YQ >8 TUEN5Ö00 
SZ-TACXQ> YQ) 

CS»SGN(TA(XÜH , YQ )) 

P-SGN(TA(XQ-1,YQ)):CS-CS H’ 
P«SGN(TACXQ,YQH)):CS»CSiP 
P"SCN(TA<XQ> YQ- 1 )):C 6 -CS U’ 

IF C5-4 TIIEM5780 

IF 5Z<0L(AB) TIILN5750 

IF SZ->SL(AB) TUEN5720 

IF SZ>SL< 1 - AB ) TIIEN EU-EU + F3:GOTO58O0 

EU"EUiD2:60T05800 

: IF SZ>SL(1 AB) THEN EU-EU<Dl:GOT05800 
IF 5Z<SLC1 -AB ) THEN EU-CU+D4:GOTO5800 
EU-EUiD3:G0T05800 

Í IF 5Z<SL.< 1 -AB ) TIIEN EU-CU«F 1: GOT05300 
ír SZ>SL(AB) TIIEN EU-EU H- 4 : GCTO5S0O 
EU-EU + F2: GOTO53Ü0 

:IF SZ-SL(AU) THEN EU-EUiBS:GGT05800 
IF SZ-SL(I-AB) THEN EU-EU-BS 
:NEXT J 
RETURN 


:RÉM KETGYURU 
FOK YI=1 TO 8 
FÓR XI-1 TO 8 
IF TA(X1,YI>>0 
G0SUB5550 
E«EU 

G05UB5300 
GOSUB5550 
WE-LU-C 
GOGUB4830 
GOGUB5980 
:NEXT XI 
NEXT YI 
RETURN 


THEN5940 


:RÉM VISSZAVÉTEL 
TACXI,YJ )-0 

XQ-X1:YQ-Y1-1:G0GUB6050 
XQ-X1:YQ-Y1+1:G06UB6050 
XQ-XIH:YQ-Yl:GOGUÜGOGO 
XQ-XI-1:YQ-Yl:GÖ6U06050 
RETURN 

: IF TA( XQ, YQ) >5 TIIEN RETURN 
TA(XQ,YQ>-TA(XQ,YQ) I 
RETURN 


:RÉM LÉPÉS 
IF JK< AB)»0 
II-' JEí AB) I 
JK(AU)-2 
J K fAB ) - 8 
JKÍAID-4 
ír J i: (AB ) -5 
IF JK(AB )-6 
RETURN 


Il¬ 

ii' 

IF 


THEN 
TIIEN 
THEN 
TIIEN 
TIIEN 
TI IEN 
THEN 


GOSIIIVII 80 
GOSUIH.210 
GOGUB4400 
G0SUB4900 
GOGH 115880 
GOSUB'T 110 
GOGUB5440 


;RETURN 
;RETURN 
;RETURN 
:RETURN 
: RE TURN 
:RETURN 
RETURN 


o 


6190 

: RÉM LÉPÉG ADMINISZTRÁCIÓ RÉSZLETE 

O 

6200 

G0SUBC250 


6210 

i F Q>9 TIIEN RETURN 

O 

6220 

G0SUD6330 

6230 

6240 

RETURN 

O 

6250 

:Q=TA(XQ>YQ) 

6260 

IF Q>9 THEN RETURN 


6270 

ME < Q ) "ML < Q) - l 


6280 

Q»Qt1 


6290 

TA< XQ,YQ)=Q 


6300 

ME(Q)=ME<Q)i1 

0 

6310 

RETURN 

6320 

0330 

:X«XQ*2+1:Y-YQ*2 +2:TX1-CHR1< 48*Q > 

o 

6340 

GOGUBl160 


6350 

C36G 

RETURN 

o 

6370 

:RÉM LÉPÉS ADMINISZTRÁCIÓ 


6380 

TA(XT> YT") = I0 


6390 

XI -XT; YI “VT: TX‘l- G0SUB366Ü 

o 

6400 

MECO)-ME(0 ) -1 

6410 

XQ-XT: YQ-Y'IO 1 


6420 

GOGUB6I90 

o 

6430 

XQ-XT:Y«»YT-1 


6440 

G0SUB6I90 


6450 

XQ-XT-1:YQ-YT 

o 

6460 

GOGUB6190 


64 70 

XQ-XT)1:YQ-YT 


6480 

G0SUB6190 

o 

6490 

FÓR J-0 TO 1 


6500 

PM( J >-MC<GLí.í >) 


6510 

PP(J ) -FM( J ) H’C< J ) 

o 

6520 

NEXT J 


6530 

XI-XT:YI-YT 


6540 

FÓR J-0 TO 3 

ü 

6550 

GOSUU3560 


*• 6560 

GOGUB36I0 

o 

6570 

NEXT J 

6580 

G0SUB3560 


6590 

G0SUB2920 

0 

6600 

RETURN 

661Ű 
6620 

: RÉM JÁTSZMÁKILLPES FÉLTÉTELE 

o 

6630 

JX-1-GGN(ME(0 >) 

6640 

RETURN 


6650 

6660 

: RÉM Ll.'PESEGYUTTES 

o 

6670 

G0GUB3430 


6630 

GoSUCGOOÖ 

0 

6690 

GOSUB6370 


6700 

COSUB6620 


6710 

6720 

RETURN 

o 

6730 

:RÉM ALEPEG 

o 

6740 

AB-0 

6750 

G0SUBG660 


6760 

6770 

RETURN 

0 

6780 

:RÉM BLEPEG 


6790 

AB-1 


6800 

G0GUBG660 

0 

6810 

RETURN 


6820 

6830 

: RÉM ODA.) ATEK 

0 

6840 

: IF JXoG TTIEN6950 



O 
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Cr 


PÁLYÁZAT 


o 


o 


Q 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 


o 


r,850 
6860 
6870 
6380 
6890 
6900 
69 JO 
6920 
6930 
6940 
6330 
6960 
6970 
6080 
6000 
7000 
7010 
7020 
7030 
7040 
7090 
7060 
7070 
7080 
7000 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
71 70 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
74-10 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7960 
7570 
7580 
7530 
7600 
7610 
7620 
7630 
7640 


G0SUBG730 

IF JX=0 TI ILII 006 U 66 730 
60106840 

:KÉM VISSZAJÁTÉK 
: IF .IX < >0 THENG930 
G0SUBG730 

1F JX-0 HIFII G05UB6730 
C0T0G900 

:GOSUB1340 
KETUKN 

: RE 14 SZÁMÍTÁSOK 

IF PP(O)-PPd) 'FIIÉN NV(0 >-NY(0 > H : NYU )-NY( 1 ) U : AC=2: RETUKN 
IF PP<0 )>l-’P( 1 ) IIIEN HYÍO) -NY(0 ) 12; All 'O: KETUKN 
NYCl)-NY C1H2:AU-1 
RCTUKN 


:KÉM ÜZENET 

TX'[i-”NYERT: ül i Cl IK1. <65 i A6 ) * ”n JÁTÉKOS. ” 

IF AB>1 1I1EN TX'1.=”A VEGEHCDMENY: EGÁL.” 

X-l :Y-21 

GOSUÜl160 

Ta'F-” , 

Y-20 

IF AB > 1 FIIÉN TX1.« M , , >” 

GOSULI 1 160 

KETUKN 

:RÉM X SZÖVEG 

FXtD - TÓVAL’.rí” 

X-l : Y«23 
GOSUBI160 
TX1-” 

X-l: Y-22 

G05UB1160 

KETUKN 


:KÉM XY SZÖVEG 

TX1=”W - BEt'EJEZES” 

X -22: Y-21 

GOSUB1160 

TX1=” 

X-22:Y-20 
GOSUB1160 

TX1 *"X - TOVÁBB, \ 
A '* 1 I l ■■ o 
G0SUB1160 
TX'J,*” » 

X“1:Y-22 
G0SUB1160 
KETUKN 


o 

o 

Q 

o 

o 


- A SOROZAT VEGE” 


:GET Oi 
IF 01.< >”X’ 
01 . = ”” 

KETUKN 

:GET Q% 

IF Q1»”X” 

IF űt-”Y” 

IF 01.<>’V 
PX-1:SX“I 
KETUKN 

:KÉM X-RE 
G0SUB7150 
G0SUB7390 
G0SUB1340 
KETUKN 

:RÉM TOVÁBB 
GOSUÜ72MO 
GOSUU7440 
GOSUBI340 
RETURH 


KÉM 00ABCF 
,0SUB6980 


TIIEN7390 


THENKETURN 
THEN SX-1:KETUKN 
' TI IC N 7 4 40 


TOVÁBB 


V. SOKOZAT VEGE 


VISSZABEF 




o 

7650 

GOSUB24ÜO 

7660 

G03UU7040 


7070 

GOSUÜ75VO 

o 

7GG0 

005UB1280 


7690 

KETUKN 


7700 

; 

o 

7710 

:KÉM ÓDÁÉIT 

7720 

X-l:Y-21:TX1-”0DAVA60 VEGE. MOST: VISSZAVÁGÓ!” 

7730 

G0SUB1160 

o 

7740 

Y-20:7X1*” , , , , 


7750 

GOSUBI160 


7760 

G0SUB7510 

o 

7770 

GOSUBI280 


7780 

GOSUBI340 


7790 

KETUKN 

o 

7800 

; 


7810 

:RÉM ODAVAGO 


7820 

GOSUB3110 

o 

7830 

GOSUB6830 


7840 

G0SUB7710 


7850 

KETUKN 

o 

7860 

: 


7870 

:RÉM VISSZAVÁGÓ 


7080 

G03UB3160 

o 

7890 

G0SUB6890 


7900 

G05UB7630 

o 

7910 

RETUKN 

7920 



7930 

:RÉM JMAPAR 

o 

7940 

G0SUB7810 

7950 

G03UB7870 


7960 

RETUKN 

o 

7970 

: 

7980 

: KÉM JATSZMAPAR BEFEJEZES 


7990 

RETUKN 

o 

8000 

; 

8010 

:RÉM JMASOKOZAT FŐRÉSZ 


8020 

SIF SX>0 TIIEN KETIJKII 

o 

8030 

GOSUB3040 

3040 

G0SUB7930 


8050 

GOSUB7980 

o 

8060 

G0T0C020 


8070 

: 


8080 

:KÉM JAT5ZMASOROZAT BEFLJCZESE 

o 

3090 

KETUKN 


8100 



81 10 

:KÉM KEZDŐÉRTÉK 

o 

8120 

FOK JJ-0 TO 1 


8130 

IF SK<JJ)-0 THEN SKCJJ>-1 


8140 

SL<JJ)-SK(JJ) 

o 

8150 

GOSUB2670 


8160 

MEXT JJ 


81 70 

AB=0:Q-0:QQ-SK<0) 

o 

8180 

RETUKN 


8190 



8200 

:KÉM STABIL SZÖVEG 

o 

8210 

TX$ = ”IIANY SZOMSZÉD? (NYILAK, KETUKN, X)” 


8220 

X-l : Y-21:GOSUBI1G0 

o 

8230 

TXS-” , ,” 

8240 

Y-20:GOSUBI160 


8250 

TX$="JÁTÉKOS:”:X-4:Y-23 

o 
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PÁLYÁZAT 




o 

0200 

G0SUB11G0 


8270 

TX1.»” , , X "4: Y=22 

o 

8280 

G0SUB1160 

8200 

8800 

RETURN 


0 

8310 

: RCM Q.O 

8320 

C0SUB14GO 


8330 

G0SUB8C30 

o 

8340 

G0GUB1G10 

8350 

cn=”” 

o 

8360 

8370 

RETURN 

8330 

:RFM STABIL TÖRLÉSÉ 


8300 

G0SUB1340 

o 

8400 

GOSUB1280 

8410 

8420 

RETURN 


o 

8480 

:RÉM BEVITEL 

8440 

;1F SK(O)OSKU) AMD Q1"”X” TIIEN KETUKN 


8450 

:GET Q1 

o 

8 4 GO 

IF QI,-THEN GOSUB868Ü 


8470 

IF Q.1>-”2) THEN GOSUB3730 

o 

3480 

IF QT, = ’’EI TIIEN Q* 1: GOGUÜl460 

8400 

IF Ql = "íi TIIEN Q”0:C.OSUIil 4G0 


8500 

( F Q.li <- >C1 IR1. (13> Ti 1EN8440 

o 

3510 

SLC AB ) - OQ: SICC AB ) "QQ: JJ "AB 

8520 

C0SUB2G70 

0 

8530 

8540 

G0T08450 

8550 

: RÉM JATSZMAPAR INl’UT 


8560 

G0SUU81 1 0 

o 

8570 

COSUC0200 

8580 

G0SU0C310 


8500 

G0SUB8430 


8G00 
8(310 
8620 
3G30 
8640 
3650 
86G0 
CG 70 
CGCO 
8G00 
8700 
C710 
8720 
S730 
3740 
8750 
8 7G0 
8770 
8780 
87510 
8300 
8310 
8820 
8830 
3840 
8850 
88G0 
3870 
8880 
8830 
8000 
8310 


G05UÜ338Ü 

RETURN 

: RÉM QQ SZOMSZÉDOK SZAMA 
TX i =0II RÍ ( 48 +QÖ );♦ ” SZOM. ” 

X-14:Y-23 
G0SUB1160 
RETURN 
: RÉM rCl_3 

1F Q=0 TIIEN OOSUB1740 :RETURN 

GOSUBS780 

RETURN 

: KÉM I .E2 

I.F 0“0 TUEM GOSULU 74.0 : KETUKM 

G0SUB8S40 

RE'FU UN 

:KÉM QQ-- 
QQ=QQ-1 

IF QQ< 1 THEN QCj-4 

GOSUB8630 

KETUKN 

:KÉM QQt► 

QQ-QQ+1 

1F QQ>4 TIIEN QQ=1 

G0SUU8B30 

KETUKN 


ENU 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


RCADY. 


■■■■■■■■■■■■■■■■■ 


A MÁSODIK 


Táblás játék 

Tisztelt Commodore Újság! 

A mellékelt lemezen küldöm — remélem, még időben 
- a stratégiai játék pályázatra a „Táblás játék" című progra¬ 
mot, C64-es gépre. A játékot magam találtam ki, bár nem 
kétlem, hogy sok ilyen és ehhez hasonló játék létezik már. 

A játék szabálya: 

A játék egy 8 x8-as táblán folyik. A játékos játszhat egy 
másik játékos vagy a gép ellen is. Kezdetben mindkét játékos¬ 
nak 64 bábuja van. A játék első részében a játékosok elhe¬ 
lyeznek 12-12 bábut. Itt még sem ütés, sem lépés nem lehet¬ 
séges. Azt, hogy hány bábunk van még, a kép jobb oldalán 
lévő ablakokban folyamatosan figyelemmel tudjuk kísérni. 
Ezután már a játékos dönti el, hogy a táblán lévő bábuval lép 
vagy a tárból helyez új bábut a táblára. Tárból kilépés T (ütni 
nem lehet kilépéssel). A játékban az a pláne, hogy azonos 
színű bábukkal egymásra léphetünk, így erősebb bábukat 
hozva létre. Maximum 3 bábut egyesíthetünk. A kisebb foko¬ 
zatú bábuval nagyobb fokozatút nem üthetünk. A játékosok 
felváltva lépnek, míg valamelyik fél bábui el nem fogynak. 
A cél természetesen az ellenfél teljes kiirtása. 


O 

o rém 

1 RÉM rn TfiBLFlS JRTEK «* 

O 2 RÉM #*ETNR SOFTWARE 

3 RÉM m* IRTA' ** 

4 RÉM «* BAOEMSZKV CSABA ** 

O 5 RÉM #*i«*#****#*#**#****i«* 

10 TOKÉ 56,116 
20 TOKÉ 54236,15 
O 22 TOKÉ 54277,7 
24 TOKÉ 54270,0 
26 POKE 53272,21 

O 100 RÉM - KARAKTER MÁSOLÁS A ROM-BOL 
101 RÉM - AZ U-J KARAKTEREK BEÜL VASASA 
l1Ö PRINT"K1S TÜRELMET..." 

° 120 POKE 56334,0'POKE 1,51 

130 FÜR. 2=0 TO 463 
140 'POKE 30720+2,PEEK<5324S+2> 

U 150 NEXT 

160 FÓR 2=0 TO 7 

q 170 'POKE 31216+ Z,PEEK<53760+ Z> 

ISO 'POKE 31224+2,PEEK<S3?76+Z> 

130 'POKE 31232+2, PEEK <541.44+2> 
q 2O0 *POKE 31240+Z,PEEK<54128+2> 

210 'POKE 31248+2,PEEK<54120+Z) 

220 'POKE 31256+Z,PEEKC54248+Z) 
q 230 ’POKE 31264+2,PEEK<54104+2> 

240 'TOKÉ 31272+2,PEEKÍ54168+Z> 

242 'POKE 31280+2,PEEK<54528+2> 

O 250 NEXT 

260 POKE 1,55'POKE 56334,1 
270 FÓR Z=Ü TO 167 
O 280 'REAO R 

290 'POKE 30936+2,A 
300 NEXT 

O 310 FÜR 2=0 TÜ 31 
320 ' REAO A 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


c* 
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PÁLYÁZAT 


o 

o 

o 

o 


Q 

Q 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


330 

340 

342 
344 
346 

343 

350 

351 

352 

353 

354 

355 

356 

357 

359 
353 

360 

361 

362 

363 

364 

365 

366 
367* 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 
380 
400 
402 
404 
406 
408 
410 
412 
418 
420 
422 
424 
426 
428 
43© 
440 
444 
450 
500 
502 
504 
520 
530 
540 
558 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
692 
694 
696 
698 
700 
710 
720 


•FOKÉ 31184+2,R 
MEXT 

FÓR 2=0 YO 7 
■RERO H 

■ FOKÉ 30720+2,H 
MEXT 

DRTR 85,85,85,85,85 / 85,85,85 , 

DRTR 170/170 / 1 70 / 170 / 1 70, 170, 170, 17'0 
ÜRTR12S,125,125,123,125,123,125,125 
ÜR1R2S5,87,87,255,255,213,213,255 
ORTR255,87,87,t27,l27,87,87,255 
ORYR0,0, 0 ,0,O,0,0 ,0 
ÜRTR190,130,190,180,130,130,190,190 
QRTR255,171,171,255,255,234,234,255 
ÜRTR255,171,171,181,191,171,171,235 
0RTR85,85,84,87,87,85,95,33 
0RTR85,85,255,235,213,85,83,83 
0RYR85,85,83,213,213,243,245,117 
ÜRTR12Ö,125,117,117,117,117,125,125 
DRTR123-125,83,33,33,93,125,125 
0RTR93,93,93,87,87,85,85,83 
U0TR85,85,85,213,255,235,85,85 
DRTR117,245,243,213,213,85,83,83 
ORTR170,170,170,171,171,175,175,174 
DRTR170,170,235,255,235,170,170,170 
DRTR170,170,170,234,234,230.250,186 
DRTR190,190,186,186,186,186,190,190 
ÜRTRISR,190,174,174,174,174,190,190 
DRTR174,175,173,171,171,170,170,170 
DRTR170,170,170,233,235,253,170,170 
DRTR 186,250,250,2.34,234, 170,170,170 
DtJTRO ,24,60,60, 126, 126,126,68 
DRTR 36,37,38', 39,27,40,41,42,43 
DRTR 44,43,46,47,28,58,59,60,61 

RÉM- 

OIR R<3,1> 

FÓR C1=0 TO 1 
■FÓR C2=0 TO 8 
i’REflO R<C2,C1> 

■ MEXT 
NEXT 

D ÍR TC 8 , 8 , 1> ,01(2,50 > , 02C1,50> ,«<3> -V7.2> 
GOTO 9000 
FÓR Cl=l TO 8 
<FÓR C2=1 TO 8 
> ■T<C2,C1,0>=0-T<.C2,C1, 1>=0 

■ MEXT 
MEXT 

.11 =64 > 32*64 * -13=30085.14=30643 
■13=64 * J6=64 > .17=4 ■ J8=4 < KT=12 
R0=36324 
K=29696 >0=35296 
FOKÉ 56576,2 ‘FOKÉ 53272,222 
FOKÉ 33270,31■FOKÉ 648,116 
FOKÉ 53282-0 -FOKÉ 53283,13 
PRINT CHR*<147>; 

FÓR 2=0 TO 7 
'FOKÉ K+2*3+2,t+Z 
! FŰKE 0+2*3+2,1 

• FOKÉ K+Z*120+80,49+Z 
'FOKÉ 0+2*120+80,1 
MEXT 

RT <: 0 > = " £££ " ' R* < 1 > * “ C C C " 

FOKÉ 646,8 

FÓR 01=0 TO 23 

1 PR INT CHRTC13> CHRTC29); 

■FÓR 02=0 TO 7 

: ' PRV.MTRT<-< <:<C173>RM01 > = r.C 2 RM 01 > > > í 

• MEXT 
MEXT 

X=25 ! Y= 1<GOSUB 10000 

GOSUB 6000 

PRIMT 


A következőkben a program felépítése és leírása kö¬ 
vetkezik. 



0 


1000 


1100 

5000 

5800 

5900 


6000 

6100 


7000 


8000 


9000 


10000 


A játéktér kirajzolása után a program meghívja a 6100-as 
adatbeolvasó rutint. Itt ellenőrzi a lépés helyességét és ugrik 
a 7000-es kirajzoló rutinra. Utána, ha nem gép ellen játszunk, 
újra meghívja a beolvasó rutint, ezúttal a 2. játékos számára. 
Ha a gép ellen játszunk, meghívja az 1100-as rutint, melynek 
végeredménye 4 szám, a lépés koordinátái. Ezt az 5900-as 
rutinnal kiírja az üzenetablakba. Innen jön a 6100-as rutin 
táblázatkezelő része és utána megint csak a 7000-es kirajzoló 
rutin. 

Ha sokalljuk a 64-64 bábut, a 440, 430 sorokban a jl, j2, 
j5, j6 változókat átírhatjuk. 


O 

O 


PRIMT TRBC25> >RÉM SHIFT+* 

PRIMT TRBC2S> -?* 6i?" - RÉM 12 SPRCE 

PRIMT TRB<25> “?a «?“ 

PRIMT TRB<25> “ I >»»»»»>-"-RÉM 8HIFT+8 & SHIF 

GOSUB 6000 

X*26■V=2iGOSUB 10080 


PRIMT CHR.4'<.144> MIT 


O 
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PÁLYÁZAT 



730 X=26' V=16>OOSUB 1.0000 

1528 

•IF 23=0 THEN 24=1=25=6'GOTO 1540 


o 

•’40 PR un N2* 

1522 

» IF 23*= 1 THEN 1530 

O 

730 PRINT CHR*<3> 

1524 

'22=0’02—0'C1=W 


990 TI #» "800000" 

1526 

'OOSUB 5000 


o 

1000 

RÉM - JÁTÉK CIKLUS - 

1527 

•IF 22=0 THEN 1540 

O 


1010 

J=1•H*=N1S•OOSUB 6100'RÉM 1.JÁTÉKOS 

1528 

'Q=C2'W=C1 


1012 

IF J6=0 THEN 8000 

1530 

■OOSUB 58Ó0 


o 

1020 

IF M2T="COMPUTER" THEN OOSUB 1100'GOTO 1040 

1534 

'IF 22 THEN 1540 

O 

1030 

J=2'N*-N2*‘OOSUB 6108<RÉM 2.JÁTÉKOS 

1338 

'24=1'25=6 


1040 

IF J5=0 THEN 8008 

1540 

NEXT 


o 

1090 

00 TQ 1000 

1544 

IF 24 THEN 2=9800+0.* 10+H' GOTO 5900 

O 


1100 

/ REM - COMPUTER LÉPÉSÉ - 

1548 

23=23-1 


1102 

X=26'V=I2'OOSUB 10000 

1550 

GOTO 1516 


0 

1104 

PRINT N2S>P0KE K+553,78 

1600 

RÉM - LÉPÉS - 

O 


1105 

KT=KT-.5<IF KT<0 THEN 11.20 

1610 

VF=0 


0 

1106 

PR.INT TRB<26> "HOVA" 

1614 

FÓR Cl = l. TO 8 


1110 

OOSUB 6508 

1618 

•FÓR C2=l TO 8 

O 


1116 

2=30Ö0'RÖ* 10+M 

1622 

' • IF T<C2. Cl. 0)02 THEN 1760 


0 

1118 

GOTO 5900 

1626 

''VE=0’23=99 


1120 

RÉM - TÁMADÁSOK ES VEDEKEZESEfc - 

1638 

"FÓR C3=l TO 8 

O 


1122 

PR INT TAB < 26 > “HONNAN" 

1634 

'''FÓR C4—1 TO 8 


o 

1130 

«<3)»1 'M<2>=1 1 M< 1 >=1 ' V<2>=1 >V<1>=1 

1638 

' ' ' 'IF T<C4.C3.0>=0 THEN 1740 

0 

1134 

Gl<2.l>=0 'Old,1>=0'OI<0,1>=0 

1642 

• ' * 'Z9=ABS<C2-C4; , +ABS<C1~C3> 


1136 

02 <: 1, 1 )=0 = 02 <0, 1 >=8 

1646 

•''>IF 299=23 OR 29=0 THEN 1740 


o 

1130 

FÓR Cl=l TO 8 

1648 

''''2=T<C2.C1.1)>28—T<C4.C3.1> 

3° 

1154 

'FÓR. C2=l TO 8 

1650 

" " IF T<C4.03,0>—1 RNO 28>Z THEN 174 


1156 

' ' IF T<C2,Cl,0>O2 THEN 1338 

1654 

" "IF T<C4. C3.0>—2 AND 2+28>3 THEN 1 

M0 

. Ci 

1160 

' 'IF 01<2,M<3>> THEN M<3> =M<3í+1'01<2,M<3> >=0 

1680 

' ■■ •Z4«SGN(C4-C2> <25—SONCCS-Cl> 



11.62 

■ 'IF Ot<1,H<2> > THEN M<2>=M<2>+1'01<1,M<2>>=ö 

1684 

•■•'0=02+24'W=C1+23 



1164 

’ ' IF 01 <0< Mi 1 > > THEN Md>=Md>+l 'Gl<©,Md>>=0 

1686 

" " IF T(GS,U,0> THEN 1696 


o 

1166 

■ < IF 02 < 1, V<2> > THEN V<2>=VC2) + l • G2< 1, V<2> >»B 

1688 

''''OOSUB 5800 

0 

1168 

• * IF 02 <: 0/V<t> > THEN V < 1 >=V < l > + 1 = 02 < 0, V <1>> =0 

1692 

''''IF Z2=0 THEN 1730 


1 ISO 

1 i VV= 1 ' TF=0 = VF=8 = TE=8' VE--0 

1696 

''''Q—C2+24'W—Cl 


o 

1200 

' 'P=l "30SUB 5008 

1702 

' " 'IF T<Q,M,0> THEN 1712 

0 

1300 

''IF TF=0 THEN 1310 

1704 

•'''OOSUB 5800 


1304 

' ' 01 C. TF-1, M < TF > > -TE 

1708 

" "IF 22=0 THEN 1738 


o 

1318 

"IF VF-8 THEN 1330 

1712 

■ ■•■Q-C2 1 W-Cl+25 

0 


1320 

' "32CVF-1,V<VF> >—VE 

1718 

' ' " IF T(G!,W,0> THEN 1740 



1338 

' NEXT 

. 720 

' GC'f.'B 580O 


o 

1332 

HEXT 

1 724 

• ' c 22 THEN 1740 

0 


1348 

FÓR 2=1 TO 3 

1 730 

t t s •. 23*29 



1344 

■ IF 01(2-1,MC2>>-8 THEN M<2> =M<2>-1 

1734 

. . > sVE=C2*1000+C1*100+0*10"i 


o 

1348 

NEXT 

: 740 

•'•'NEXT 

0 


1352 

IF G2<0,V<1>>=0 THEN V< t >»V< 1>-1 

1742 

»«‘HEXT 



1354 

IF G2<1/VC2>>=0 THEN V(2>-VC2>-1 

1750 

'■IF VE=0 THEN 1760 


o 

1360 

IF MC3>-0 THEN 1366 

1754 

.«VF»VF+1 

0 


1362 

2=01<2,RNOC 0 >*M < 3 > +1>'GOTO 5980 

1758 

' •GU0,VF>=VE 


o 

1366 

IF M<2>-0 THEN 1372 

1768 

' NEXT 


1368 

2=01 d, RNO <0 > *M < 2 > +1 > = GOTO 5900 

1764 

ítEXT 

0 


1372 

IF VC2>=0 THEN 1378 

1766 

IF VF=0 THEN 1800 


0 

1374 

Z=02d,RN0(8>*V<2> + l> 'GOTO 5900 

1778 

2=01<0.l+RHO<0>*VF>'GOTO 5980 


1378 

IF Md>=0 THEN 1384 

1800 

Vd> = t ' V<2? = 1 ' P=5 

O 


1380 

2=01 <18/RNOC0>*M< 1 > +1 > 'GOTO 5988 

1884 

02 < 0.1>=0'G2<1.1>»0 


o 

1384 

IF V<l>-0 THEN 1.408 

1808 

FÓR Cl=l TO 8 

0 

1386 

2-02 <0 , RNO < 0 1 *V <. 1 > +1 > ' GOTO 5988 

1812 

•FÓR 02=l TO 8 


1400 

RÉM - AZONOS BÁBUK EGYESITESE - 

1816 

• ' IF T<C2,Cl .9)02 THEN 1838 


o 

1418 

V<2)=1•VC1>=1'P—3 

1828 

• • IF 0203, V<: 1 > > THEN V< 1 >=V< 1 >+1 ■ G2<0 

,v<t 

1414 

02(1,1>—8«O2<0<l>-8 

1824 

• ■IF G2<1,V<2> > THEN V<2> —V<2> +1•02<1 

. V<2 


1420 

FÓR Cl=l TO 8 

1828 

••VF=0 ' OOSUB 5000 


0 

1422 

'FÓR C2=1 TO 8 

1832 

• • IF VF»0 THEN 1838 

0 


1426 

"IF T<C2, Cl, 0)02 THEN 1458 

1834 

' 'G2<VF- 1, V C VF >> = VE 



1430 

•' IF G2<1,V<2>> THEN V(2>-V<2>+1 ’ G2<1,V<2>>-8 

1838 

• NEXT 


o 

1432 

' ' IF G2 <. 8, V < 1 > > THEN V C 1 > =V < 1 > +1'02 < 8, V < 1 > > =8 

1842 

NEXT 

0 


1434 

'' VF—8 ’ VE=8 

1858 

IF G2(0,Vd>>=0 THEN Vdí-VCD-l 


1440 

'' OOSUB 5008 

1854 

IF Ö2<l,V / <2)>=0 THEN V(2>=V<2>-1 


o 

1442 

•' IF VF—8 THEN 1458 

1858 

IF V<2>=0 THEN 1866 

0 


1446 

' "32 < VF—2 , V < VF- 1 > > -VE 

1862 

2=02 < 1 , 1+RNÖ < O > * V < 2 >>■ GOTO 5900 


1450 

= NEXT 

1866 

IF V<1>«0 THEN RÉTURH 


o 

1452 

NEXT 

1870 

2=G2<8, l+RHO<0>*Vd>,’ 'GOTO 5900 

0 


1460 

JF G2<1 ,V<2>>=8 THEN V<2->=V<2>-1 

•Jvcíu 

RÉM —< BÁBUK KŐRŐLV 1 2SGMLASA >— 



1462 

IF G2<0,V<1>>=0 THEN Vd>=Vd>-l 

5010 

0.-C2' W=C I-1 


o 

1470 

IF V<2>—8 THEN 1480 

5012 

IF WCl THEN 3016 

0 


1472 

2=02 < 1, 1+RMD(0>*V<2> > 'GOTO 5980 

5014 

OOSUB 5080 



14»3 

IF Vd>“® THt’H 15Ö8 

5016 

Q=C2'W=C1+1 


o 

1484 

2-02 <8.1 +RHO < 0 > *V < 1. > > ■ GOTO 5988 

5018 

IF W>8 THEN 5022 

0 


1500 

RÉM - LÉPÉS A TARBÓL - 

5020 

OOSUB 5880 


0 

1510 

IF J2-8 THEN 1688 

5022 

0=C2—1'N=C1 


1514 

P-4'2-1 = 23-2'24=8 

5024 

IF O.d THEN 5028 

0 


1516 

FÓR 25=1 TO 6 

5026 

GOSUB 5080 


o 

1518 

■OOSUB 6588 

502.8 

0 = 1 : 2 +1 ' U1=C 1 

0 


O 
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FEBRUÁR 





















PÁLYÁZAT 


o 

o 

o 

Q 

O 

Q 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


5030 

5032 

5034 

5036 

5038 

5040 

5042 

5044 

5046 

5048 

5050 

5052 

5054 

5056 

5058 

5080 

5100 

5104 

5108 

5112 

5116 

5120 

5122 

5124 


1F Q>8 THEH 5034 

OOSUB 5080 

G!=C2-1iM=01-1 

ÍF ÖCt OR M<1 THEH 5040 

OOSUB 5080 

G'.=C2.+1 ‘ M=C 1 + 1 

IF GO8 OR. W>8 THEH 5Ö46 

OOSUB 5080 

C*=C2-1 UT=C1+1 

IF GKt OR. 108 THEH 5052 

OOSUB 5080 


G!=C2+1 ' IT---C l — 1 

IF GO8 OR MCI THEH 5058 


A gép lépése: 

1. fázis (támadás, védekezés). 

A12 bábu lerakása után — első fokozatként - 2 tömbbe 
(G1, G2) összegyűjti a lehetséges támadások és védekezések 
lépéseit. 

A támadásnak 3, a védekezésnek 2 fázisa van. Utána ki¬ 
választ egy lépést a következő prioritási szint szerint. 

3 szintű támadás 
2 szintű támadás 2 védekezés 
1 szintű támadás 1 védekezés 


OOSUB 5080 
RETIJRM 

OH P GOTO 5100,5200,5300.5400,5500 
IF T<a,W,0>Ol THEH RETURN 
IF TCGUM,l»T<C2,Cl,1> THEH 5150 

IF T<Q,W, 1XTCC2,Cl, 1 > THEH 2-T<C2,Ct, 1>-OOSUB 5888• IF Z2 THEN RETIJRH 
IF T <O,W,1><TF THEH RETURH 

IF f<Q,W, 1>=TF FlHO <F'EEK<RO>RHD 1> THEH RETURH 
IF TCC2.C1,1>=T<Ű,W,l> THEH VV=0‘VF=0 
TF=T<0.,M,l> 

TE=C2* 1000+C1* 100+C!* 10+M 


5130 RETURH 


5150 IF VV=0 THEH RETURH 
5154 ,VV=0 > 23=0 
5156 P=2>GOSUB 5000 
5158 IF 23=0 THEH 5162 
5160 VF=T<02,01,1> 

5162 RETURH 

5200 IF TGQ,U,0>=0 THEH 5250 

5204 IF T<Q,W,8>»2 THEH 5280 

5210 IF TCQ,W, 1»«T<C2/C1, 1>THEH RETURH 

5214 2=T<02,01, 1 > 

5218 OOSUB 5800 

5222 IF 22 THEH RETURH 

5224 IF 2303 THEH 23=3■GOTO 5232 

5228 IF PEEK<RO> RHD 1 THEH RETURH 

5232 VE=C2*1000+C1*100+0*10+0 

5236 RETURH 

5250 Z=tCC2,Cl,1> 

5254 GOSUB 5800 

5258 IF 22 THEH RETURH 

5262. IF 23>1 THEH RETURH 

5266 IF 2301 THEH 23=1•GOTO 5274 

5270 IF PEEK<RO> RHD 1 THEH RETURH 

5274 VE=C2*1000+01*10U+G*10+M 

5278 RETURH 

5280 2=T<02,01,t>+T<Q,W, 1> 

5282 IF Z>3 THEH RETURH 

5284 OOSUB 5800 

5286 IF 22 THEH RETURH 

5288 IF 23=3 THEH RETURH 

5290 IF 23<2 THEH 23=2-GOTO 5294 

5282 IF PEEtíXRO) HHU 1 THEH RETURH 

5294 VE=C2* 1000+01*100+G!* 18+M 

5296 RETURH 

530O IF T<8,H,#)02 THEH RETURH 
5310 2=T<0, M, 1 >+T<102, Cl, 1> 

5314 IF Z>3 THEH RETURH 

5320 IF VF>2 THEH RETURH 

5330 GOSUB 5880 

5334 IF 22 THEH RETURH 

5338 IF VFCZ THEH VF=2•GOTO 5346 

5342 IF P£Et«RO> RHD 1 THEH RETURH 

5346 VE-C2*1000+01*100+0*10+M 

5350 RETURH ■ 

5400 IF T<O.,M,0>=2 THEH 22=1 
5410 RETURH 

5500 IF TCG!,M,0> THEH RETURH 
5510 2=T<02,01, 1 > GOSUB 5800 
5520 IF 22=0 THEH 5550 
5522 IF VF=2 THEH RETURH 
5324 IF VF=0 THEH VF=1■GOTO 3532 
3528 IF PEEKCROJ RHD 1 THEH RETURH 
5532 VE=C2* 1000+01*100+0* 1.0+W 
5336 RETURH 

5550 IF VFC2 THEH VF=2•OOTO 5558 


Védekezésnél mindig a legjobb lehetőséget választja: 

1. üres mezőre lép, 

2. másik bábuval egyesíthető, 

3. ell. bábu támadása. 

Természetesen minden feltételezett (rész-) lépésnél el¬ 
lenőrzi, hogy támadható-e. 

2. fázis (egyesítés). 

Ha nincsen sem támadási, sem védekezési lehetősége, 
akkor ugrik erre a programrészre, ahol a bábuk egyesítési le¬ 
hetőségeit gyűjti össze. Szintén erősségi fokozatokban és 
megvizsgálva, hogy az egyesített bábu nem támadható-e. 

3. fázis (tárból lépés) 

Ha nincsen egyesítési lehetősége, akkor ugrik erre a 
programrészre, ahol véletlenszerűen választ ki helyeket a 
táblán. 

Első 6 próbálkozás: üres hely, nem támadható, szom¬ 
szédos mezőn saját bábu. 

Második 6 próbálkozás: üres hely, nem támadható. 

Utána: üres hely, mindegy. 

4. fázis (önálló lépés). 

Ha a tár már üres, akkor jön ez a programrész, amely 
messze a legidőigényesebb az összes között. Itt minden 
egyes bábuval összehasonlítja az összes (távoli) többit. 
Minden egyes bábuhoz kiválaszt egyet. Mindig a legköze¬ 
lebb lévőt, megvizsgálva, hogy ha ellenség, támadható-e, ha 
nem ellenség, egyesíthető-e. Itt is a vizsgált lépéseket egy 
tömbbe gyűjti össze, ahonnan a ciklus végén kiválaszt egyet. 

Érdemes úgy játszani, hogy a végére (amikor a gépnek 
nincsenek bábui a tárban) viszonylag kevés bábu legyen a 
táblán, mert ez a programrész perceket is igénybe vehet. Ér¬ 
demes lenne lefordítva kipróbálni, de sajnos nekem nincs 
fordítóprogramom, így erről nem tudok beszámolni. 

A programból kilépni a STOP -l- Restore és a Po- 
ke648,4-gyel lehet. 

A program kezelése egyszerű, mindig először az oszlop 
betűjét és a sor számát kéri. A beolvasó rész más bevitelt 
nem is enged. A lépésünket már a gép gondolkozása közben 
beírhatjuk. A gépben aktív action cartridge nem lehet. 

A programhoz kellemes szórakozást kíván: 

Badenszky Csaba 
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PÁLYÁZAT 


o 










5554 

i:f peei«ro> hwo i them return 


6138 

PRINT TflB<26> “NOVB" 



0 


5558 

VE-C2# 1008+ C1 * 1. annj* 10+ M 


6134 

GOSUB lökj30 




o 

5562 

RETURN 


6138 

£=RSC<RÍ>-64 ' R=nsC<ft2*>-48 





580® 

RÉM VESZEL 1 V VIZSÓMÉRT - 


6148 

GOSUB 10030 



0 


5882 

22=0 


6142 

IF E=20 THEN KT=KT +•. 5 * GOTO 6100 




0 

5804 

E=f?’P.=M-1 


6146 

IF NŐT 0=20 THEN 6300 





S80& 

IF R-01 THER 5810 


6150 

IF 1=1 RND 11=0 THEN 61.00 



0 


5888 

GOSUB 585©>IF 22 THEM RETURN 


6134 

IF J=2 RNO 12=8 THEN 6188 




o 

5818 

E=Q>R=W+1 


6158 

IF NŐT T<E,R,0>=0 THEN KT=K'1 + .S< 

30T0 

6 Hí 

iö 


5812 

IF R>8 THEM 5816 


6160 

T < E, R, 0 > »1 ' V CE, R, 1 > ” 1 



0 


5814 

GOSUB 5850 •• IF 22 THEN RETURN 


6162 

IF T HEH 62ÖÖ 




Q 

5816 

E=0-1 ■•R«t4 


6166 

11 = 11-1 





5818 

IF E<1 THEN 5822 


6170 

POKE .13,32 



0 


582Ű 

GOSUB 5850’IF 22 THEM RETURN 


6174 

.13=13-1 <17=17-1 




ü 

5822 

£=l?+1■R=W 


6178 

IF J7=0 THEN J7=I2'JT3».J:3-28 





5824 

IF E>8 THEM 5828 


6182 

GOTO 6228 



0 


5826 

GOSUB 5850!IF 22 THEN RETURN 


6200 

12 -J2-1 




U 

5828 

E=Q—1■R=W-1 


6284 

POKE J4,32 





5839 

IF E<1 OR R.< 1 THEN 5834 


6208 

14=14-1 >18=18-1 



U ! 


5832 

GOSUB 5850 > IF 22 THEM RETURN 


6212 

IF 18=0 THEN 18=12 > 14=14-28 




u 

5834 

E=Q+1 ' R**W+1 


6228 

GOTO 7100 



0 


5836 

IF E>8 OR R>8 THEM 5840 


6300 

IF HOT TO?,M,0>=1 THEM 6108 




o 

5838 

GOSUB 5850 1 IF 22 THEN RETURN 


6384 

IF Q=F. RNO M=R THEN 6108 





5840 

E“i?-l'R=W+l 


6308 

IF RBS<Q-£»1 OR RBS<W-R>>1 THEM 

6108 

0 


5842 

IF Ed GR R>8 THEN 5846 


6312 

IF T<Q,W,0>=T<E,R,0> THEM 6400 




o 

5844 

GOSUB 5850"IF 22 THEN RETURN 


6316 

IF HOT TO?.,W, 1 >>=T<E,R, 1 > THEM 6100 




5846 

£=0.4 1 * R=W- 1 


6317 

IF T<E,R»8> THEN Kl-1 



0 


5848 

IF E>8 OR Rd THEN RETURN 


6318 

IF 1=1. THEN 16=16—TCE,R, 1 > 



1 

o 

5850 

IF T<E,R,0>=1 FlNO T<E,R,1»=Z 

THEN 22=1 

6320 

IF 1=2. THEN 15=15—TCE, R, 1 > 





5852 

RETURN 


6322 

t <: e , r , 0 > ■ t < 1?, w, 0 :>*r <: e , r , 1 >=ro?,w 

, 1 > 


0 


5900 

RÉM - COMP. LÉPÉS KI IR.lTS - 


6324 

TO?,W,0>=0 ' TO?,W, 1 >=0 




0 

5902 

22»K+553 ' FR-8Ö 


6348 

GOTO 7080 





5904 

IF Z>900® THEN 0=20i2=2-9000 ! GOTO 5910 

6488 

IF T<Q, W, 1 >+T <E, R, 1 > >3 THEN 6100 



0 


5906 

0 = I NT < 2/1000 > " 2=2-0*1000 


6410 

T<E,R,1>=T<E,R,1>+TO?, M, 1 > 




o 

5908 

W« I NT <2/100 > " 2-2--H* 100 


6428 

T O? , W ,8 >=@' TO? , M,1 ?=« 





5910 

E=1NT<2/10> " 2=2—E*10 


6438 

K2=l 



0 


5912 

R=2’1F KT>=8 THEM 5934 


6468 

GOTO 7088 




o 

5914 

POKE 22 , Q ' POKE 22+1,78 


6580 

RÉM - ===< RND >===- 





5916 

GOSUB 10048 • GOSUB 1 « 100 


6510 

Q= 1 +1 NT<RNQ<0 > *8 > 



U 

o 

5918 

IF 0=20 THEN 5924 


6512 

W“ 1 + INT <RND<8 ><«8> 




5920 

POKE 22+1,W+48"POKE 22+2,70 


6516 

IF TO?,M,0> THEM 6510 



n 


5322 

GOSUB 10840'GOSUB 10108 


6518 

RETURN 





5924 

GOSUB 18048 


7000 

1 





5926 

GOSUB 10030 


7801 

RÉM -«==< LÉPÉS >===- 



0 


5928 

X-26 ' V=12 ■ GOSUB 18080 


7082. 

* 




o 

5930 

PRINT H2* 


7810 ‘‘RÉM - TORLES - 




5932 

PR.INT THB<26> “HOVfi" 


7012 

FR=30 ' GOSUB 10040 



0 


5934 

POKE 22,70'GOSUB 10100 


7020 

Z”K+1+ < Q-1 > *3+ <W-1 > * 120+40 




o 

5936 

POKE • 22 , E ■ POKE 22+1 , 70 


7824 

22=27+<l?+W RND 1> 





5338 

GOSUB 10840'GOSUB 10100 


7030 

FÓR 01=0 TO 2 



0 1 


3940 

POKE 22+1 , R+48 ' POKE 22+2,78 


7040 

’ FÓR 02=0 TO. 2 



i 

o 

5942 

GOSUB 10040'GOSUB 10100 


7044 

> 'POKE 2+01*40+02,22 



s 


5944 

GOSUB 10040 


7048 

' NEXT 



0 


5946 

GOSUB 10038 


7052 

NEXT 




o 

5948 

.1=2 


7100 

RÉM - RR120LRS - 





5950 

GOTO 6146 


7102 

FR=28 ' GOSUB 10040 



0 


6000 

« 


7110 

2=l + CE~t )*3+<R.-l >*1,20+40 




o 

6001 

RÉM-===< HBLFIK ;■===- 








6002 

t 








6010 

PR INT TRB<25> " >>>>>>> V> V> >+'' 

'RÉM SMIFT+* 






o 

6012 

PR INT TR0<25>”? ?“ 





0 



60I.4 

PR INT THB<25)"-9»»»»>»“" ' 

RÉM SMIFT+D *= 

SHIFT+E 






6016 

FÓR 2=1 TO 5 







o 

6018 





0 



6028 

HE XT 







o 

6022 

PR INT TRB<25> ,, Í 514808 L? 

" 






6024 

-PRINT TRBC25> “ 1 »»»»»»-" ; 

'RÉM SHIFT+B « 

SHIFT+C 


0 



6026 

RETURN 







o 

6100 

» 







6101 

RÉM -===< LÉPÉS BEOLV. >==»- 





0 



6102 

: 








61.04 

KT=KT-.S'IF KT>«0 THEN 0=28 ' GOTO 6122 






(J 

6106 

X=26 ' V=12 ' GOSUB 10080 





0 



6108 

PRINT Nítr- 







o 

6112 

PRINT THB<26> “MONHRN" 





0 


6114 

GOSUB 10058 







6116 

G=RSC<fl* 64 ' W-HSC<fi2*>-48 







o 

6118 

GOSUB 10830 





D 



6122 

X=26 ' V= 1.2 ' GOSUB 10000 








6126 

PRINT N* 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


7124 

7130 

7132 

7134 


7 142 
('144 


7114 Z2=ÍE+R AMD 1 > 

7116 Z3=J+8 
7120 FÓR Cl=0 TO 2 
■FÓR 02=0 TO 2 

< 'POKEK+Z+C1*40+02,R<C1*3+02/22 > 

'iP0KEC+2+C1*40+02,23 
> NEXT 
7138 HEXT 

7140 FOKÉ K+2+41. ,28+TCE/R, l>+4*22 

IF KI THEM K1=0'FR=12>OOSUB 10044 
IF K2 THEM K2-0•FÓR 2=18 TO 48 STEP 
RETURN 

ijkltíO FOKÉ 56576,3'FOKÉ 53272,21 
UÖ10 FOKÉ 648,4’POKE 53278,208 
8030 0*”N*+“ VOLT 02 ÜGYESEBB" 

8040 PR INT “391851" TftB<13> “VEGE A .JÁTÉKNAK" 
8050 PRINT 1 PR INT 

8060 PRINT TBB<<4B-LEN<R*>>/2>. “a" fi* 

8070 A*=“" 

8080 IF LEFT*CTI*.2>="00" THEN 8100 
8090 fi*«LEFT*<T l*,2>+“ ORR " 

8100 R*«=fi*+MI0*<TI*,3,2>+“ PERCET JÁTSZOTTATOK 

8110 PRINT 1 PRINT 1 PRINT 

8120 PR INT TBB<<40-LEN<R#>>/*> “Ki" fi* 

8130 PRINT“WMMKW“ 

8140 POKE 198,0■K=1•OOSUB 10110 
9000 PRINT CHR*C147> CHR*< 8 > 

9010 POKE 53280,6'POKE 53281,6 

9012 K=1>POKE 198,0 

9014 X=14■Y=2 1 GOSUB 10000 


FR-Z'OOSUB 10040■NEXT 


"TÁBLÁS JÁTÉK" 


1 ■RÉM 16 SHIFT+E 


9020 PR INT CHR*<.5> 

9030 PR INT TfiB<l4> CHR*<144> ‘ 

9040 PRINT 

9050 PRINT TfiBd0> CHR*<1S8>"IRTfi ! BfiDENSZKV CSOBO" 

9060 PR l'NT > PR INT 

9062 PRINT CHR*Cl55> “SZHBOLVOK■EGV 8 X 8 MEZON LEHET FELVÁLTVA" 
9064 PR.INT "LÉPEGETNI.MINŐKET JÁTÉKOSNAK 64 BABUJA" 

9066 PRINT "VHN.fi JÁTÉKOS DÖNTI EL,HOGY fi TŐRBŐL,“ 

9068 PRINT “VAGY MÓR EGV POLVRN LEVŐ BRBUVOL LEP." 

9069 PRINT “fi POLVfiN FIZ AZONOS BÁBUKKAL E0YM0SR0 " 

9070 PRINT “LEPHETÜNK,NÖVELVE FlZ ERŐSSÉGI FOKOZATOT" 

'MAXIMUM 3-IG.HFl fi TŐRBŐL AKARUNK LEPNI" 

*0 'HONNAN' KERGESSE 'T' KELL GÉPELNI." 

9073 PRINT "fi JÁTÉK KEZDETEN fi JÁTÉKOSOK FELRAKNAK" 

9074 PRINT "12-12 BÁBUT.UTHNHfl MINDEN R LEÍRTOK" 

'SZERINT MEGY.GYŐZTES'AKI LEÜTI AZ" 

'ELLENFEL ÖSSZES BÁBUJÁT." 

9088 PRINT'PRINT CMR*<5> 

9090 OOSUB 10110 

9200 INPUT " l.JOTEKOS"INI* 

9210 r.F LENINIT>>12 THEN Hl*=LEFT*CMl*, 12> 

9220 INPUT " 2. JÁTÉKOS COMPUTERIMMHHIIHIItM" i M2* 

92.30 IF LENCH2*»12 THEN M2*=LEFT*CN2*< 12> 


3071 PRINT 
9072 PRINT 


9076 PRINT 
9078 PRINT 


RÉM 10 <CRSR B0LR0> 


9250 GOTO 420 

10000 RÉM-===<: CUR.S0R POS. >===- 

10010 POKE 211,X 1 POKE 214,Y'SYS 58640 
10820 RETURN 

10030 RÉM -=«=< ABLAK TOEL. >===- 

10032 FÓR 2=30202 TO 30213 
1.0034 > POKE Z,32'POKE 2+40,32 
10836 NEXT 
10038 RETURN 

10040 RÉM -===< SOUMD >===- 

10042 POKE 54276,0'POKE 54276,17 

10043 GOTO 10046 

10044 POKE 54276,0'POKE 54276,129 
10046 POKE 54273,FR 
10048 RETURN 

10050 RÉM -===< BILL. LEKERD. >===— 

10052 Z=K+553=FR=80 
10054 POKE Z,70 

10056 FIAIT 198,255'GET fi* 

10057 IF ASP'C'A" OR R*>"H“ AND 0*0"T" 

10058 POKE Z,ASCCfi*> AND 63 
10060 POKE Z+1,70 
10062 GOSUB 18040 
10064 MAIT 198,255'GET A2* 

10866 IF OSC<O2*>=20 THEN POKE Z+1,32'OOSUB 10040'GOTO 10054 
10070 IF ASCCA2*>=13 AND R*="T" THEN 10090 
10072 IF A2í<" 1 " OR A2*>"8" THEN 10064 


THEN 10056 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

Q 

o 

o 

o 

o 

o 


o 


10073 OOSUB 10040 O 

10074 POKE Z+l,ASCCfi2*> 

10078 POKE 2+2,70 
10080 MAIT 198,255'GET 03* 

10884 IF FlSCC03*> =20 THEN POKE Z+2,32’G0T0 10060 
10886 IF ASOC03*>O 13 THEN 10080 

10090 GOSUB 10048 

10099 RETURN 

10100 RÉM -==»< IDŐ >===- 

10104 FÓR Z»t TO 22B<NEXT 
10188 RETURN 

10110 RÉM -===< SPAOE TEXT >===- 

13112 K= 1 ~K 1 0*= "«< SPfiCE »>" 

10114 PR INT CMR* (. 18+K* 128 > CHR.*<145>i 
18116 PR INT TFIB< 14 > fi* 

10118 GET K* 

18128 FÓR Z=1 TO 88'HEXT 
10122 IF HOT K*=" " THEN 10112 
10128 RETURN 


REROY. 


o 

G 
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A HARMADIK 


SEDA 

Tisztelt Zsűri! 

Az alábbiakban mellékelt SEDA nevű programommal 
szeretnék benevezni az Önök BASIC programnyelvű straté¬ 
giai játékának megírására kiírt pályázatra. 

A program a talán nem mindenki által ismert SZENEGÁ¬ 
LI DÁMAJÁTÉK-ot dolgozza fel. 

A játék lényege a következő: 

A játékot két játékos játszhatja, akik felváltva léphetnek 
egyet egy szomszédos üres mezőre jobbra, balra vagy az el¬ 
lenfél térfelének irányába (1. ábra). A cél a másik bábuinak 
kiütése. Ha a lépő bábu és az üres hely között az ellenfél bá¬ 
buja van, úgy az kiüthető, ezzel egy pont és egy üres hely 
szerezhető (2. ábra). Ha bábunkkal áttérünk az ellenfél térfe¬ 
lének legszélére, úgy azt elveszítjük. 

A program indítása után megjelenik a kezdőkép, ahol 
kérhetjük az FI billentyűvel a játék pontos leírását. Ha erre 
nem tartunk igényt, úgy egy akármilyen más billentyű lenyo 
mására megjelenik a játéktér. Ennek bal felső részén az eddig 
szerzett pontok, középen pedig a 6x 5-ös játékmező látható. 

A játékot mi kezdjük (a játékos). A legelső mezőben 
megjelenik egy világos négyzet, amivel - a kurzormozgató 
billentyűket igénybe véve — kiválaszthatjuk a lépendő figu¬ 
rát. Ekkor az FI billentyűt megnyomva balra (ha ez az irány 
megengedett), vagy az F3-mal lefelé (ha ez lehetséges), vagy 


az F5 billentyűvel jobbra (szintén, ha lehetséges) léphetünk. 
(Mindig arra a figurára kell ráállni, amellyel lépni szeretnénk!) 

A mi lépésünk után a számítógép lép, majd megint mi 
következünk mindaddig, míg a gép vagy mi el nem érünk 14 
pontot, azaz elveszíti valamelyik játékos az összes bábuját. 

A gép értékelése után egy billentyű lenyomására újra 
kezdhetjük a játékot. 

A program stratégiája a következő: 

Miután mi léptünk, a gép végignézi az összes mezőt, és 
ha talál egy olyan kombinációt, ahol a saját bábuja és az üres 
hely között a mi bábunk van, valamint ha a haladási irány a 
három megengedett irány egyike, úgy lép egyet és kiüti a bá¬ 
bunkat. Ha nem létezik ilyen helyzet, úgy mégegyszer végig¬ 
megy a pályán, és keres egy olyan egyszerű lépést, amit lép¬ 
het (és lépi is), majd ismét megjelenik a kis világos négyzet, 
ezzel jelezve, hogy mi következünk. 

Nos, azt hiszem, ennél többet nem írhatok, a program 
önmagáért beszél. A gép egyébként nagyon nehezen győz¬ 
hető le (10-ből ha háromszor), de sok sikert kívánok! 

Sasvári Gábor 

7635 Pécs, Bagoly u. 52. 
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10 RÉM * m * SZENEGÁLI OAMAJATEK * * * 

11 RÉM 

12 RÉM 

13 RÉM SEDA 

14 RÉM 

15 RÉM ÖV 

16 RÉM 

1? RÉM SASVARI GÁBOR 

13 RÉM 
13 RÉM 

20.RÉM * A KEZDD ÉRTEKEK BEÁLLÍTÁSA * 

21 PO1=0 > P22=0 ■ D1M HX<30> , HV<3D> < A<7, , 0* <.2XS> ■ PC =8 

30 60SUB 7000 -RÉM * * # KE2DOK.EP * * m 

31 IP A#*"M" THEN PC=1 ■ 

5Ö A#< 1 >="S " > A»<2>“"iií MIIHI“ sAIBI «Bflt 

51 POR 1 = 1 TO 2 = FOK 0=1 TO 6 : A r. I, U > = 1 • fl 1 . 1 + 3 , U > =2 • NEXT ; NEXT 

52 f OK 1 = 1 TŰ 6 •• PERUK > A<3, 1. / =K >NEXT • DATA 1, 1,3,3,2/2 

53 IP PC=1 THEN GOSUB 5000 

37 RÉM' 

38 RÉM 

39 RÉM * * « KEZDOKEP * m * 

100 PRINT“265" >PDK£ 53280,0‘POKE 53281,0’ 

110 PR IMI t AB<. 11 >" r t - 't - -T - -r--i " 

111 FÓR 1 = 1 TO 5 > 

112 PRINTTABOlVt I t t t | I" 

113 PRINTTAB<11>"I 1 I t t t i " 

114 IP 105 THEN PR INT TABU IV t — 4 1 1 — 4 4 -! " 

115 NEXT 

116 PR I NTTAB< 11 > “ L —- L —— -*•—-*■—•• 

118 PR INT "Ma: Öt S! M *»»« *» 8 " 

120 PR INT" 'íB #« n HÍM" 

122 PR.INT" H M M V»t ?< p»" 


O 

O 

O 

O 

o 

o 

o 

O 


C 


O 


O 


O 
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124 PRINT-sWWM uEPESEK ' »MP»»»*»M^»M»»»M»*f»ONTS2RM = “ 

125 PR .1 NT " JUKIBRLRR-" F 1 RTÖCOS " 

126 PR XNT'' NKIÜEF ELE--F 3 

128 PR!.NT“m;0BBRK-F5H»»W*B»*M«»»»»*»*»»»(3ZRMl TÓGÉP“ 

158 GOSUB 508 

153 GOSUB 1.000 = 00800 2008 • LEP=LEP+1 
163 ÍF POCI 4 RHD P2<14 THtlN 158 
170 PR1NT"«" 

180 0Ü8UB 8808 
43? RÉM 
438 RÉM 

488 RÉM *** R 6RBUK F ELRRJ 2XJLHBH *** 

500 PR 1 NT " MAI" 

581 FOK 1 = 1 TO 6‘XF RC1/1>=2 THEN PŰ»PŰ+1 ■ RC 1, 1 > =3 

582 IF R<5/I> — 1 THEN P2=F2+1=RC5/ i >=3 
503 NEXT 

521 FÜR 1 = 1 TO 5‘FÓR 0=1 TO 6 ‘ PRlMTYRB<8+U*3>Rst'CRC i , U> >“T1" ; s NEXT ‘ PR INT' 

522 PKINT"»AU^.«WMM»»f^»»*W»»K»»»ftlt:»l|t»»|i»»»|»»»»V««l»ll“PO 

523 F'RlHT"M|iíU8RlM^r»»ll‘®!»-»!»l^W»!ll!lliW#»ft»»&tl».»*UFJ»*»S^I!lil*í*"P2 

532 RÉTURH 
388 RÉM 


O 


O 


O 


O 


O 


O 


O 


o 


o 


o 


888 RÉM 

1000 RÉM 

1001 

1050 

1051 


**# H LEPE' 

X=l‘ V=1iL=Ö 1 K=8 
PRXNT“ftüS" ■ IF L>1 THEN FOt 
PR INT TR6 C 8+3*K > fi * C R C L. / K > . 


K1 VRLRS2THSH ■*■** 


1=1 10 L- 


PR.íNT"«ttl“ ■ NEXT 
•- NEXT 


1052 

PRÍNT ,, «BI" 

> XF 

»1 THEN FÜR 

1=1 TO 

Y-l‘PRINT"KW 

1083 

PHINTTRBC9+3# 

>4)BT 



1060 

GET RT‘IF 

RT= 

THEN 1060 



1061 

XF RT="»t" 

RHO 

V<5 (HEH ( 

=X >L=V 

Y=Y+1 

1062 

XF Rsf.= "n" 

RHD 

X<6 (HEH t 

:=x ■ l=v 

X=X+ 1 

1063 

XF HSS'="»l" 

RNÜ 

X> 1 THEN > 

:=x ‘ l=v 

X=X-1 

1064 

XF RSF--.T* 

RNÜ 

V>1 THEN ( 

,=X = L=V 

V=Y-1 

1065 

l F RT= “ 

OR RT : =" ffi" UR RT= 

= '*IS’ 1 THEN GOTO 3000 


1080 
1888 
1888 
2000 
2001 
2.010 
201.1 
2030 
2840 

2042 

2043 

2044 
2050 
2080 


GOTO 1050 

RÉM 

RÉM 

RÉM * * * 
FÓR 1=1 Tí 
FÓR 1=1 Ti 
NEXT=NEXT 
FÜR 1=8—1 
ÍF RCHVCX; 
ÍF RCHYCI; 


H GÉP LEP 
3ü•HY<I> 
: 5 spOR 0= 


H« * # 
=0iHX<1; 
1 TO 6 


-Ö>NEXT>8=1 
IF fl<l,U>=3 THEN HYCS>=1 = HXCS)=U 'S-S+l 


TO 1 STEP 
|, HX C I >+2> = 
'+2/ HXC I > >= 


-1 


FlNÜ 

RNÜ 


:* = l 
>=i 


THEN 

THEN 


2Q80 

2081 



2081 

RCHVCI 

> / HX 

<: i. 

o 

2082 

RCHYC1 

> , HX 

Cl 


2100 

NEXT ■ P: 

2=»P2 

+ i 


2200 

FÓR X=: 

S-l 

TO 

o 

2201 

ÍF RCH' 

»• <: j. > 

, h: 


2202 

XF RCHYCI) 

+ i 

o 

2208 

I.F RCHYC X) 

, h: 

222Ü 

NEXT'GOSUB 

51 



KÉM 



o 


r-.L.l 5 

RÉM * 

# * 

t-s 


=1 THEN 2082 

1 : HXC 1 >+2>=3 
«+2/HXC1>>=3‘ 
1 1 HXCI>—2>=3' 


1 = 1 
1 = 1 
1 = 1 


3000 

3001 

3002 

3003 

3004 
30Ö5 
3010 
30:30 

3100 

3101 

3103 

3104 

3105 
3110 
3130 

3200 

3201 

3204 

3205 
3210 


RCHS'C I > i HXC I > + 1 
HCHVC1/+1-HXC1 >:■ = 

ÍF HXC 1X2 THEN 2050 

1F R < HY C i > , HX Cl >--2/ =2 HHÜ H C HY C I > . HX C X > ••• 1 > « 

NEXT •• GOTO 2208 

RC HYCl),HXC1>)=2iHC HYC1>/HXC1>+1> =3■RCHY C1) 

> =2 ■ RCHVC 1 > + l / HXC 1 > >=3 > RCHYC I ; 

>=2■RCHYCI)/HXC1)~l>=3 >RCHYC1. 

GOSUB 500 •• RETURN 
1 STEP -1 t 

C 1.1 ;• =2 ( HEH •• RCHVC í > / HXC í > >=2 > RCHYC 1 > , HXC I >-1 
HXCI)>=2THEHHCHYC1>,HX<I>>»2>RCHYCI>+l/HX<X)> 
< 1,' +1 )=2 ÍHEH •• RCHVC l ,■, HXC 1 > >-2 ■ RCHYC I ) , HXC I> + 1 
0 .RETURN 


LÉPÉS * * * 

IF fiCY/X>=2 OR RCV/X>=3 THEN 1050 
IF R$=“*r OR R*«“W“ THEN 3100 
ÍF RCY+2/X> =3 RHO RCY+1/X>=2 THEN 301.0 
IF RCY+1 / XK>3 THEN 1050 


‘GOTO 2 
■GOTO 2 
‘GOTO 2 


100 

100 

100 


' 1 = 1 
■ 3 1 1=1 
>=3‘1=1 


GOTO2220 
GOTO2220 
•GOTO2220 


GOSUB 
RCY/X) 
RCY+1z 
GOSUB 


3800 
=3‘RCY+1 
X>=3 = RCV/X 
500 = RETURN 


X > = ' 


■GOTO 3030 
; = RCY+2/X)=1>PO=PO+1 


R*=“®" THEN 3200 

RCY/X+2>=3 RHO HCV,X+1)=2 THEN 3110 
RCV/X+1)03 THEN 1050 
>ue 3800 

f /X > =3 ‘ RCV/X+1> = 1>GOTO 3130 

=3>R C V,X+2)=1>PO=PO+1 


IF 
IF 
XF 
GO: 

RC 

R C V / X+1 > =3 ' Ft C V 
GOSUB 500‘RETURN 
IF X<2 THEN 3203 
ÍF RCV/X-2>=3 RHO RCV.X- 
I.F RCV / X— l >03 THEN 1050 
GOSUB 3800 

RCV/X>=3‘RCY/X-1>=1>GOTO 
RCV / X— 1) =3 ‘ RC Y / X> =3 5 RCV /: 


>=2 THEN 3210 


3230 


= 1 PO-PO+ l 


o 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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3238 

3900 

3301 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 
5018 
5013 

5020 

5021 

5022 

5023 

5025 

5026 
6000 
6001 
6002 
6003 
6804 
6005 
6806 

6007 

6008 
6083 
6810 
6011 
6012 

6813 

6814 

6015 

6016 
6817 
7808 
7081 
7882 
7083 
7884 
7828 
7822 
7024 
7038 
7831 
7033 

7840 

7841 
7843 
7858 
7851 

7060 

7061 
3000 
8081 
8882 
•jyj'O'-x 

8805 
8886 
8.8Ü 7 
8088 
8815 
8016 
8813 
8020 
8822 

8823 

8824 

8025 

8026 

8027 

8028 
8029 
8838 
8048 


Q08UB 588 *RETURN 

PRT.MT" SSW" ■ IF V>1 THEN FÓR 1*1 TO V-l >PRIMT"M«"'NEMT 

PRINTTAB<.3+3*X> H# < R< Y, X) > >RETURN 

RÉM 

RÉM 

RÉM * * * JÁTÉKLEÍRÁS # * * 

PR INT " CJsT ' PpKE 53280 , 8 * POKE 53281,0 

PRINTCHRÍC14)*83*54272•POKE 33+24,15*POKE &S+5,3'P0KE 38+6,8' 

FÓR 1*1 TO 28 1 READ 0*<I>*NEXT>PQKE 33+1,58 
FÓR 1 = 1 TO 2© < PRINTTH6< <40-LEN<O$<1> > >/2> i 

FÓR U=1 TO LEM<0*<D)'POKE 33+4,33•POKE S8+4,16■PRINTMI0*<0*<I>,U,1) 

POR X=1 TO 38 1 NEXT 

NEXT 

PR I NT 

NEXT 

ÓET-R*'IF A*-"" THEN 5021 
PR1NT"W" >FOR 1=1 TO 21'PRINT" 

FÓR X*1 TO 50'NEXT 
NEXT ' PR í NTCHRS C142 ',' 

RETURN 


" ■■HTEKLE £ RFlS " 

" <í SZENEGÁLI “RMftJWTEK. H KOR- ” 
"NYÉKÉN KELETKEZETT KETSZEMELVES TARSAS-" 
"JÁTÉK.* JÁTÉK LENVEOE H KŐVETKEZŐ* 

“ VINÜ R KÉT JÁTÉKOS 14-14 BAKUVAL. REN—“ 
“DELKEZXK.* CÉL*R MRS1K BÁBUJAINAK A KI-" 
"UTESE.«Z EPREN SORON KŐVETKEZŐ JÁTÉKOS" 
11 CSAK .JOBBRA, BRLRR, £8 AZ ELLENFEL TERFE-" 
“LE IRHNVHBR LEPHET.“ÓVSZERRE CSAK EOVET" 
"LEHET LEPNI L«3V SZOMSZÉDOS ÜRES MEZŐRE. " 
“ (A A LEPŐ 8RBU/ES AZ ÜRES MEZŐ KOZOTT" 
"AZ ELLENFEL BÁBU.JA RLL,UOV AZ KIÜTHETŐ," 
"3 EZZEL PONT ES EOV ÜRES HELY SZEREZNE-" 
"TO. H-; H BABUNK R SZEMKÖZTI OLDALRA AT—“ 
“EK,U8Y HZ'!' ELVESZÍTJÜK. 

’• NO SZÓRAKOZÁST KÍVÁNOK!" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
RÉM 
RÉM 

RÉM * * * KEZÜÜKEP * * * 

PRINT“CM"■ 

POKE 53288, O PuKE 53281,0 

EáK í >*" a #»»aa0« ’iKsmwr 

e*<2>*“M4as '•**!« »*#*» »i »*#i kí " 

£*<3>»“a »»»ia »»»i k» erawiti»i ki 

FI - JÁTÉKLEÍRÁS"* 

PRINT"W*M E6VEB MAS BILLENTYŰ A JÁTÉK INDÍTÁSA" 

N*=" JCXCMBWSXSdKfijSlalHifl!" < N*=N$+N* ' N»»N*+N*+N* > N*«N»+N* 
POR K-l TŰ 250 
PRINTMIÜ$<N*,K,1>; 

PRINT"M»nMM" TOR 1*1 TO 3 • PRINTTAB<6>E*< 1 > '■ PR 1 NT * NEXT 
PRINTMID*CN*,K+4, 1>; * CET Aí'lF A*0“" THEN RETURN 
PRINT"«Rt»«anmt" >FOR 1-1 TO 3> PfcINTTA8<5>£*CÍ> ‘PRINT 1 NEXT 
NEXT 

ÜOTO 7040 

RÉM 

RÉM 

RÉM * * * Ö A M E 

v*<D=“a ks *« kí 
v*< 2 >=“« mm n *t 
v*<3>»"a **»» n n 
v*C4K*“a ki M n « ki 
V-TÍ5 .'=“ a *! KJ KI KJ 


O V L R w * * 

KJ '«»! KI KJ KI Ki " 

KS K00JKJKI KJ KJ KI KJ KWftt M " 

K! K»JKWS KJ KJ KI KJ 1*1 Ki" 

KJ »»»«?.* 511 K5 KI KJ KI " 

KI »»&!. MKI KI KJ “ 


TO 10 ’ POKE 646,4- IF 0/2= INT0.1/2) THEN POKE 646,1 
TO 150'NEXT 

*POR 1 = 1 <0 5 * PRIMTTAB<4>V*< 1 > * NEXT 


FOK 0=1 
FÓR X=1 
PRINT" 

NEXT 

pr i nt •• mrntr ■ por i=1 to 3 * pr i nttab <: 4 " esí 

NEXT 

PR1NT"«W 

POR I = l TO 3'PRINTTAB<4>"!"TAB<36)"!"*NEXT 

PR I NT TAB < 4> " - 

K*“" SAJNOS EN NYERTEM! 

IP P0*14THEN K$="GRATULÁLOK,MAGA NYERT!" 

PR I NT “ ÖlRtóSiKWUU" T AB C 10 > " Mr*" K* 

GET AÍ'ÍF HT="" THEN 8030 
RUN 


O 

O 

O 

O 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


READY 
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Képernyővarázslat 

Ötödik rész: 

A hang programozása 


Be kell valljam, félve ültem le a gép 
elé, mikor ezt a cikket írni kezdtem. Sok 
emberben ugyanis az a meggyőződés él, 
hogy a PLUS/4 hangja borzasztó. Ehhez 
nagyban hozzájárul a COMMODORE 
cég előző — joggal sikeres — gépe, a 
C-64. Ez a gép a maga kategóriájában 
csodálatos zenéket produkált, melyekhez 
a PLUS/4 zenék jó része igencsak gyen¬ 
gécske. Hogy a helyzetet tovább rontsák, 
megjelentek olyam „kitűnő” programo¬ 
zók, akik (C-64-ről átírt és egyéb) prog¬ 
ramjaikba ugyancsak gyengén sikerült 
„3 szólamé” zenéket raktak (a három 
C-64 szólamot a PLUS/4 két csatornáján 
gyorsan váltogatják), illetve újabban „di- 
gitkonvertereket” használnak, és mindkét 
módszerrel a köcsögdudára megtéveszté¬ 
sig hasonlító zajokat állítottak elő. A sok 
szidás után azonban szólnom kell az ellen¬ 
példákról is: ügyes variálásokkal (me¬ 
lyekről majd később szólok) igen jó zené¬ 
ket lehet előállítani. Erre példa a Nest of 
fleas, A horgok kincse, a Bard’s Tale 3., 
a Bongo... Különben is, hasonlítsunk 
össze egy átlag PLUS/4 és egy átlag IBM 
PC zenét! A PLUS/4-ről legalább le lehet 
venni a hangot... 

Nos, ennyi üres beszéd után nézzük 
meg, mi is történik, ha zenél a gép! A 
BASIC parancsok (VOL, SOUND) már 
bizonyára mindenkinek ismerősek. Gépi 
kódban ahhoz, hogy egy hang megszólal¬ 
jon, először be kell állítani a frekven¬ 
ciát, majd a hangerőt, engedélyezni kell a 
négyszögjelgenerátor működését, enge¬ 
délyezni a csatornát, és az esetleges fehér¬ 
zajt. Ez most lehet, hogy elsőre kicsit bo¬ 
nyolultnak tűnik, de ez egy hang esetén 
maximum három regiszter írását jelenti. 
Ebből kettő a hangmagasságot állítja, és 
egy látja el az összes többi funkciót. Néz¬ 
zük a regiszterek listáját! 

$FF0E - 1. hanggenerátor frekvencia alsó bájt 
$FF0F — 2. hanggenerátor frekvencia alsó bájt 
$FF10 — 2. hanggenerátor frekvencia felső 
bájt, az 1. és 0. biten 
$FF11 - hangvezérlő regiszter 

b.7 0/1 négyszögjel/analóg jel 

b.6-1 ■ 2. generátorzaj engedélyezés 
b.5 1 2. generátorhang engedélyezett 

b.4 1 1. generátorhang engedélyezett 

b.3 0 hangerő (0—8-ig) 


$FF12 1. hanggenerátor frekvencia felső két 

bit az 1 és 0. biten. 

Mint azt már eddig is tudtuk, két ge¬ 
nerátorral rendelkezünk, melyek csak 
négyszögjelet tudnak szolgáltatni. A frek¬ 
venciát 10 biten programozhatjuk 6 oktáv 
terjedelemben (legalábbis a zenei hango¬ 
kat). A hangterjedelem kiszámítható az 
alábbi képletből : A gépbe beírandó 
érték = 1024 — (c/f), ahol ,,c” egy 
konstans, PÁL rendszer esetén 111840.45 
(NTSC esetén 111860.781), f pedig a 
frekvencia Hz-ben. Az inverz képlet: 
f = c/(1024 — gépi érték). A gépbe beír¬ 
ható érték 10 biten 0-tól 2? 10—1-ig, azaz 
1023-ig terjedhet. Minél magasabb a 
hang, annál magasabb az érték, de 1023 
beírása mély hangot eredményez. Tehát a 
hangterjedelem c/1024-től (109.2 Hz) 
c/2-ig (55920 Hz, magasan az ember ál¬ 
tal hallható 16000-20000 Hz fölött). A 
hangerőt elméletileg négy biten progra¬ 
mozhatjuk, de 8-nál nagyobb beírt érték 
nem jár hangerőnövekedésscl. Mint az az 
$FFÍ1 regiszter leírásából látszik, a két 
generátor hangereje közös. Egy hangge¬ 
nerátor akkor szólal meg, ha be van kap¬ 
csolva. Ezt külön-külön vezérelhetjük. 
Ha a kettes generátoron zajt kívánunk 
megszólaltatni, a zaj bitet 1-be kell vinni. 
Ha a zaj és négyszögjel is be van kapcsol¬ 
va, a négyszögjel fog szólni. Próbáljuk ki 
az 1. listán látható programot! Az ígért 
trükkök: 2 szólam + dob megszólaltatha¬ 
tó úgy, hogy a 2. generátoron futó szóla¬ 
mot dob idején kikapcsoljuk, és utána 
vissza. Ezt úgy is megtehetjük, hogy 
mind a két szólamot szüneteltetjük a dob 
megszólalásakor. A hangerővel érdemes 
játszani: ha a lejátszórutin ügyesen állít- 
gatja, olyasmit kapunk, mint a burkoló¬ 
görbe állítgatásakor C-64-en (így műkö¬ 
dik az említett néhány jó zene). Sajnos, 
ezzel nagyjából kimerítettük a hanggene¬ 
rátorok négyszögjel és zaj üzemmódjaival 
elérhető hatásokat. Egyéni ötletek persze 
jöhetnek még, például a zene időzítésére 
felhasználhatjuk a beépített megszakító¬ 
rutint is, de ez gyakran túl nagy megköté¬ 
seket jelent. A$04FC/04FEcímaz 1. ge¬ 
nerátor időzítője, a $4FD/04FF a másodi- 
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ké. Használatuk: bekapcsoljuk a hango¬ 
kat, ahogy eddig, majd beírjuk az időzítő¬ 
be a hang hosszának kettes komplemensét 
(ugyanis az időzítőket a megszakítórutin 
növeli, és ha elérik a nullát, akkor kapcsol 
ki) 1/60 másodpercben. Ha lejár, a meg¬ 
szakítórutin a generátort automatikusan 
kikapcsolja (2. lista). 

És most rátérnék az egyik kedvenc té¬ 
mámra: a hangdigitalizálásra. Ha szeré¬ 
nyebb minőséggel is megelégszünk, nem 
kell hozzá nagy felszerelés, csak egy 
PLUS/4 és egy VCI531-es mágnesszalag 
drive egység, magyarul magnó (DATA- 
SETTE) na és persze egy program. Ezzel 
csak 1-bitcs digit lehet elérni, de ingyen 
van... Mi teszi lehetővé a hangdigitalizá¬ 
lást? Az $FF11 egyetlen ismeretlen bitje, 
a 7. bit. Ha ide egyet írunk, a hangerővel 
vezérelhető úgynevezett „analóg” jelet 
kapunk a kimeneten, a beépített négy¬ 
szögjelgenerátor kikapcsol. Érdekesség, 
hogy nyolc helyett 12(!) hangerőt használ¬ 
hatunk. Ha ugyanis egy vagy két generá¬ 
tort használunk, a második esetben na¬ 
gyobb változás tapasztalható az analóg ki¬ 
meneten (tehát a „nulla” szint és két ge¬ 
nerátor 8-as hangerőn nagyobb feszült¬ 
ségkülönbséget okoz a hangkimeneten, 
mint egy). így elméletileg 8*2=16 hang¬ 
erőnk lenne, de ebből néhány egybeesik. 
Sajnálatos módon nem adhatom meg a 
hangerők sorrendjét, mert azokat nem én 
találtam ki, és nem szakkönyvben láttam, 
hanem egy programban. Szigethy András 
(PIGMY) a feltaláló. Az ő címe elég köz¬ 
ismert, én pedig nem akarom őt magamra 
haragítani, ezért kérek mindenkit, hogy 
nála érdeklődjék. Egyébként ha a kettes 
generátort analóg üzemben zajra kapcsol¬ 
juk, további hangerőnövekedést érhetünk 
el, de tudomásom szerint ezt még senki 
nem rendezte be táblázatba, vagyis még 
senki sem használta ki a további hangerők 
lehetőségét. Természetesen az analóg jel 
használata sem „A MEGOLDÁS”, ennek 
is akadnak hátrányai. A legnagyobb hát¬ 
rány, hogy emellett a gépnek szinte sem¬ 
mire sincs ideje. Ennek az az oka, hogy 
a zenével itt nem annyit foglalkozunk, 
hogy beállítunk néhány regisztert, és a 
többit a hardver végzi, hanem a hangelő¬ 
állítással végig foglalkoznunk kell, és egy 
hangjelhez legalább annyiszor kell foglal¬ 
kozni egy másodperc alatt, mint Hz-ben 
mért frekvenciájának kétszerese, vagyis 
például egy 5 kHz frekvenciájú négyszög¬ 
jel legalább 10000 ciklust jelent másod- 

23 FEBRUÁR C : 





KITEKINTŐ 


O 

percenként (ugyanis 5000-szer „magas”, 
5000-szer „alacsony” állapotba kerül), 
egy nyolc részletben előállított szinuszjel 
pedig 8*5000=40000 ciklust jelent... 
Természetesen ilyen pontossággal időzí¬ 
teni csak a TED időzítőkkel lehet, és még 
így is gyakran le kell kapcsolni a képer¬ 
nyőt. Valójában az analóg lehetőségeket 
legjobban digitalizált hangeffektusokkal 
lehet kihasználni, mint például azt Kosir 
Attila tette DIGITAL BALL című játéká¬ 
ban. Ilyen minőséghez azonban speciális 
hardver és nagy tapasztalat szükséges. 
Próbáljuk meg a 3. listán látható program 
beütését, és kísérletezzünk a hullámfor¬ 
mákkal (az alapbeállítás normál „A” han¬ 
got szolgáltat szinuszos jelalakkal). Néz¬ 
zük meg hát digitalizátor-programunkat! 
Működési elve: a géphez csatlakoztatott 
adatmagnó a processzorport ($01-es cím) 
4. bitjén küldi a gép felé a jeleket. Ezt mi 
állandó időközönként leolvassuk, és a bi¬ 
tet a memóriába írjuk. Ha a memória 
megtelt, befejezzük a digitalizációt. Ma¬ 
ximum körülbelül 34000 mintavétel érhe¬ 
tő el másodpercenként, a minimális aján¬ 
lott szám 8000 lehet. Lejátszáskor folya¬ 
matosan olvassuk a memóriát, és a kiolva¬ 
sott értéktől függően alacsony vagy magas 
szintre állítjuk az analóg kimenetet. 


Részletesebb leírás 

Digitalizálás: Megkérjük a felhasz¬ 
nálót, hogy indítsa el a magnót, és meg¬ 
várjuk, míg ezt megteszi. Kereső funkció¬ 
ra állunk. Megvárjuk, míg a télhasználó 
a SHIFT billentyű lenyomásával jelzi, 
hogy a digitalizálni kívánt részhez érkez¬ 
tünk. Ha a magnó nem ad jelet, megvár¬ 
juk, míg ez elkezdődik, így például egy 
hang elé is beállhalunk a kazettával és az 
üres részen lenyomva a SHIFT billentyűt 
a gép maga keresi meg a hang kezdetét. 
Letiltjuk a megszakítást, majd lekapcsol¬ 
juk a képernyőt, ezáltal a gép gyorsabban 
és egyenletesebben fut. Beállítjuk az idő¬ 
zítőket. Az X-regisztert használjuk „ma¬ 
radék bit” számlálónak, ha itt nulla áll, a 
bájtban az összes bit elfogyott. A beolva¬ 
sott biteket egyenként léptetjük be a puf- 
térbe. Ha ez tele van (X = 0), kiírjuk a 
következő bájtba. Ezt addig folytatjuk, 
míg vége nincs a használható RAM-nak 
($FD()0-ás cím). A folyamat közben a fel¬ 
használó folyamatosan hallgathatja a jelet 
úgy, ahogy az majd lejátszáskor hangtani 
fog. Lejátszás: A megszakítást kikapcsol¬ 
juk, RAM-ra kapcsolunk, az időzítőket 
beállítjuk. Folyamatosan olvassuk a me¬ 
móriát, és a kiolvasott bittől függően ma¬ 
gas vagy alacsony állapotba hozzuk az 


analóg kimenetet. Ezt a folyamatot is 
$FD00-ig folytatjuk. Itt szeretném meg¬ 
említeni, hogy azonos elven működik a 
közkézen forgó FOONER és DIGITAL 
SYSTEM nevű két program is. 


Köszönöm figyelmüket, a következő 
(a befejező) cikkben a memóriáról és a 
billentyűzet/joystick-kczeléséről olvas¬ 
hatnak, és bemutatásra kerül egy ROM- 
COPY is. 


TABLA 

.END 


.BYT $80,$40,$20,$10,8,4,2,1 


;5. rész 1. lista 


GENLOW=$FF0F 
GENHI=$FF10 
SNDVEZ=$$FF11 


*=$2000 


VAR 


.END 


GENLOW=$FFOF 

GENHI=$FF10 

SNDVEZ=$$FF11 

TIMLOW=$04FD 

TIMHI=$04FF 


*=$2000 


LDX 

LDY 

STX 

STY 

LDA 

STA 

LDX 

LDY 

STX 

STY 

BRK 


#2 

#3 

GENLOW 

GENHI 

#$28 

SNDVEZ 

#0 

#$FF 

TIMLOW 

TIMHI 


2.GENERÁTOR ALSÓ BYTE 
FELSŐ 

TED HANGVEZÉRLŐ REGISZTERE 


O 

O 

o 

o 

o 




o 


LDX 

#2 


LDY 

#3 

;NORMÁL 'A' HANG 

STX 

GENLOW 


STY 

GENHI 


LDA 

#$68 

;2. CSATORNA NÉGYSZÖGJEL 

STA 

SNDVEZ 


LDY 

#0 

;VARAKOZO CIKLUS 

LDX 

#0 

;KB. 1 MÁSODPERC 

INX 



BNE 

VAR 


ÍNY 



BNE 

VAR 


LDA 

SNDVEZ 


EOR 

#$20 

;NÉGYSZÖGJEL KI/BE 

STA 

SNDVEZ 


rész 

2. lista 



I 


2.GENERÁTOR ALSÓ BYTE 
FELSŐ 

TED HANGVEZÉRLŐ REGISZTERE 
IDŐZÍTŐ ALSÓ BYTE 
FELSŐ 


;NORMÁL 'A' HANG 


;2. CSATORNA NÉGYSZÖGJEL 
;KB. 5 MÁSODPERC 


o 

o 

o 

o 

o 

o 

o 

o 

o 

0 

0 

0 

0 


r 


;IDŐZÍTŐ 
;BEÁLLÍTÁSA 


;KILÉPÜNK, DE A HANG TOVÁBB SZOL 


.END 
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ana1og 

hang. 



1 




O 


Li ne « 

Addr 

Code 

Source 





o 









O 

o 

00001 

0000 



; anai 1 og 

hang 


O 

00002 

0000 




X = 

17000 




00003 

7000 



; 


1 


O 

o 

00004 

7000 



tempó 

= 

100 fb 

;’a’ hang periodusido/8 


00005 

7000 



timer 1 

= 

If f 00 



o 

00006 

7000 



timerh 

= 

1 í f tó 1 


o 

O0OO7 

7000- 



i r q 

= 

$f f 00 




00008 

7000 



tedl 

= 

If f 06 

;ted vezerlo tt 1 

o 

o 

00000 

7000 



; 





00010 

7000 



» 





o 

00011 

7000 

78 



se i 



o 

00012 

7001 

a 9 

0b 


1 da 

tt Itób 



00013 

7003 

öd 

06 ff 


sta 

tedl 

;kep ki 


o 

00014 

7006 

a íL 

íb 


1 dx 

tt < tempó 

;t e játszási 

o 


00015 

7003 

a.O 

00 


1 dy 

t! > tempó 

;sebesseg 


o 

00016 

700 a 

8e 

00 ff 


s t X 

t i mer 1 

;beirasa 

o 

00017 

700d 

8c 

01 ff 


sty 

t i merh 




00013 

7010 

a2 

00 

k esd 

Idx 

tttó 



o 

00019 

7012 

bd 

29 70 

beo 1 v 

t da 

tab1 a,x 

[hangerőt beolvassuk 

o 


00020 

7015 

f tó 

í'9 


beq 

kezd 

jzaro nulla? 


o 

00021 

7017 

a8 



tay 


;mentjuk 

o 

00022 

7018 

a 9 

08 


1 da 

#8 

; timerl bit 



00023 

701a 

2c 

09 ff 

var 

bit 

i rq 

[megvárjuk, mig 


o 

00024 

701 d 

10 

t'b 


beq 

var 

I lejár 

o 


00025 

7011 

8d 

09 ff 


sta 

i r q 

; irq toriese 


o 

00026 

7022 

3c 

11 ff 


sty 

$f f ii 

ihangerot kiírjuk 

o 

00027 

7025 

e8 



inx 


[mutató növelés 


00028 

7026 

4c 

12 70 


jmp 

beo 1 u 

[cikiushoz 


ü 



94 

97 08 97 




o 


00029 

7029 



tab1 a . 

by t 

$94,$07,$98,$97 

; szinuszos 


o 



94 

91 90 91 00 





00030 

702d 



• 

by t 

$94,191,$90,$91, ;tab1 azat 

o 

0 

end of 

assembly, error 

c o u n t - 

00000 

r 

o 


beo 1 v 

7012 


i r q 

t f 09 


<ezd 7010 

tab1 a 7029 _ 


Ü 

tedl 

var 

fi 06 

"7 Ok 1 

tempó 

00f b 

timer h f f 01 

ti meri ff 00 





















0 




L iné ti 

A kj cj r Code 

Source 


o 

o 




00001 

0000 


; har.g-di gital izator 

o 





00002 

0000 





o 




00003 

0000 


X = 

$1001 





00004 

1001 


* 


o 





00005 

1001 


5 



o 




00006 

1001 


• 


o 




00007 

1001 


ide = 

$d0 

o 




00008 

1001 


innen = 

ide 





00009 

1001 


puff = 

ide + 2 

0 





00010 

1001 


timer 1 = 

tf f 00 


o 




00011 

1001 


t i m e r h = 

$f fOi 

o 




00012 

1001 


ram = 

$í f 3f 


o 




00013 

1001 


rom = 

$ f í 3e 

o 




00014 

1001 


bili 

$0543 





00015 

1001 


tedvez = 

$f f 06 


0 




00016 

1001 


hang = 

$ f í 11 

o 




00017 

1001 


bordér = 

$f í 19 

o 




00018' 

1001 


po r t = 

$01 

o 




O0019 

1001 


üzenet = 

*e31b 





00020 

1001 


mtrbe = 

ie33d 


o 




00021 

1001 


mtrki = 

Ie3b0 

o 




00022 

1001 


basic = 

$8703 





00023 

1001 


tempó = 

$0060 


0 




00024 

1001 


i rq = 

$f í 09 

o 
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00025 

1001 





in o n = 

í f'f 52 



o 

00026 

1001 





f 



O 



0 b 

10 

c7 

07 





o 

00027 

1001 






. byt 
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XII. rész 


FELHASZNÁLÓI FELÜLET 

Rendes körülmények között egy 
programot a C64-esen a LOAD utasítás¬ 
sal töltünk be és RUN-nal indítunk. Egy 
felhasználói felület esetében az utasítások 
elmaradnak. A legjobb példa erre a 
GEOS. Itt egy programot nem a nevével 
hívunk föl, hanem egy megjelenő grafi¬ 
kus szimbólumra (ikonon) kell „rálőni”, 
azaz a joystickkel rálépni és a tűzgombot 
megnyomni. Ezután a GEOS maga végzi 
el a program fölhívását. Vannak olyan 
programok is, amelyek szintén rendelkez¬ 
nek felhasználói felülettel, pl. a Geowrite. 
Mialatt a szövegszerkesztő programok ál¬ 
talában billentyűzet utasításokkal dolgoz¬ 
nak, a Geowrite menütechnikát kínál. En¬ 
nek a menünek a funkcióit joystickkel 
vagy egérrel és a tűzgombbal (egérgomb¬ 
bal) kell aktiválni. Mindent összevetve a 
felhasználói felületek különösen a kezdők 
számára könnyítik meg a kezelést. Ez 
nagyban csökkenti a „konfliktusokat” a 
számítógéppel. 

IKON 

A modern felhasználói felületeknél a 
programokat nem a nevek megadásával 
kell fölhívni. Hanem a felhasználói felü¬ 
letben a lemezen található minden egyes 
állomány egy bélyeg méretű szimbólumot 
kap, amelyet a képernyőn látunk viszont. 
A C64-es esetében a GEOS dolgozik így. 
A szimbólum általában valamilyen for¬ 
mában kapcsolódik a program nevéhez, 
felhasználási területéhez. Például a szö¬ 
vegszerkesztőt egy toll jelzi. Ha egy ilyen 
programot el akarunk indítani, akkor az 
egérrel vagy a joystickkel rá kell vezet¬ 
ni az ikonra a mutató nyilat, és kétszer 
meg kell nyomni gyorsan egymás után az 
egér-, (tűz)gombot. Ezzel a módszerrel 

c* 


nemcsak programindítás lehetséges, ha¬ 
nem állományok másolása, törlése, átne¬ 
vezése stb. is. 

ABLAKTECHNIKA 

A szakzsargonban ezt windowing- 
nek is nevezik. Ezzel a technikával ma¬ 
napság egyre többször találkozunk. Dur¬ 
ván válogatva itt kommentár- és visszaiga- 
zolási ablakokkal, redőny menükkel talál¬ 
kozunk. Az elsőként említettek esetében 
általában beviteleket kell tenni vagy visz- 
szaigazolni, esetleg hibajelzésekkel talál¬ 
kozunk így. A redőnymenük (Pull-Down 
menük) esetében a képernyőn megjelenik 
egy négyszög, amely úgy takarja el a kép¬ 
ernyőn eredetileg álló információt, mint¬ 
ha egy „redőnyt” gördítettünk volna le 
egy felületre. Ebben a menüben azután 
különböző választási lehetőségeket talá¬ 
lunk. Ha elhagyjuk a menüt, a redőny 
„fölgördül”, s a képernyő eredeti állapota 
visszaáll. A GEOS esetében találunk a 
képernyőn egy menüsávot. Ha itt kivá¬ 
lasztjuk az egyiket (kattintás a mezőn, rá- 
lövés), automatikusan legördül a redőny¬ 
menü. A megjelenő választási lehetősé¬ 
gek közül valamelyiket aktiválva végre¬ 
hajtjuk a kívánt műveletet. Az ablaktech¬ 
nika megkönnyíti a számítógéppel a mun¬ 
kát, hisz a parancsok bonyolult bevitele 
elmarad. 

PANEL 

Más szóval NYÁK, azaz nyomtatott 
áramkör. Az elektronikában az alkatré¬ 
szek hordozója legtöbbször egy üvegszál¬ 
lal megerősített műgyanta lap, ahol a dró¬ 
tok helyett az összekötéseket maratott 
vagy felnyomtatott vezetékpályák látják 
el. Mivel a panelok előállításakor sablo¬ 


nokkal dolgoznak, ezért a hibás összekö¬ 
tések lehetősége majdnem lehetetlen. A 
lapokat leggyakrabban valamilyen norma 
szerinti méretben készítik, és azon furato¬ 
kat is találunk az építőelemek számára, 
amelyeket forrasztással össze lehet kötni 
a vezetékpályákkal. Mivel a panel ren¬ 
delkezik egy úgynevezett érintkezősáv¬ 
val, ezért azt gyakran modulkártyának 
is nevezik, mivel ezeket egy előre elké¬ 
szített csatlakozóba (siót) egy mozdulattal 
be lehet helyezni. A gyártásnál először 
„layout”okat készítenek, amelyeket a pa¬ 
nel fényérzékeny felületére ultraibolya 
fénnyel ráfotóznak. A fölvitt réteg nem 
megvilágított részét a panelról le lehet 
maratni, így azon csak a layoutnak megfe¬ 
lelő vezetékpályák maradnak. 

KÉPERNYÖMASZK 

Hogy a felhasználók számára a prog¬ 
ramokban az adatok bevitelét megköny- 
nyítsék, ezért a képernyőn egyfajta formu¬ 
lán építenek föl. A rendelkezésre álló fe¬ 
lületet magyarázó szövegekkel ellátott ré¬ 
szekre osztják, ahova azután a kívánt ada¬ 
tokat be lehet vinni. Ha a maszkokat átte¬ 
kinthetően készítették el, úgy az nagyban 
hozzájárul a hibamentes adatbevitelhez. 
Ezen kívül például a jól elkészített masz¬ 
kok beviteli mezői lehetővé teszik az in¬ 
putok ellenőrzését is, például a hosszú¬ 
ságra. Természetesen azt is ellenőrizni le¬ 
het, hogy a bevitt adat szám-e vagy karak¬ 
terlánc (sztring). Ezekre azután a jó prog¬ 
ram reagálni tud. Ha valaki dolgozott már 
a Superbase programmal, akkor tudhatja, 
hogy a képernyős (beviteli) maszkokat 
nem csupán a szép megjelenítés miatt ta¬ 
lálták fel. 


Új játék- és felhasználói programok 
eladók! Bélyeggel ellátott válaszbo¬ 
rítékért listát és tájékoztatót küldünk. 
(Vízhatlan csomagolás, kedvezmé¬ 
nyek.) /Commodore 64/ FRIEND 
TWO CREW, 1399 Budapest, Pf.: 
701/55. /IBM-AT/ DESTORIN, 
1399 Budapest, Pf.: 701/633. 

C-64-es jó állapotban 11.000 Ft-ért el¬ 
adó. Badenszky Csaba, 2800 Tatabá¬ 
nya, Fő tér 9. 

576-ban megjelent és egyéb C-64-es 
programok eladása lemezen, kazet¬ 
tán. Lemezes programok kazettás 
változatai. Deutsch Szabolcs, 8749 
Zalakaros, Fő u. 19. 
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Még többet ésszel! 


IX. rész 

Az első kérdésemre, a kettős IF (1. pl.) helyettesítésére elég 
könnyű a válasz, a megoldás a 2. példa. A két változat elvileg 
látszólag tökéletesen egyenértékű mindkét esetben a FRINT ak¬ 
kor és csak akkor hajtódik végre, ha A és a B is igaz (nem nulla). 
Most mégis a két változat különbségeiről fogok beszélni. 

Nem tudom, ki hogy van vele, nekem az AND-es változat 
szimpatikusabb, talán mert áttekinthetőbb. Sajnos úgy tűnik, ez 
a legtöbb jó, ami elmondható róla. Egyik gyengéje a viszonyla¬ 
gos lassúsága. A kettős IF-ben a B vizsgálatához csak akkor ju¬ 
tunk, ha a feltétel A tagja igaz, az AND művelet viszont minden 
esetben elolvassa és kiértékeli mindkét tagot. Ráadásul az AND 
végrehajtása, úgy látszik, lényegesen lassabb az IF-nél, bizonyá¬ 
ra a többszöri adatkonverzió miatt. Még azzal sem tudtam a pró¬ 
bák során az IF fölé kerekedni, hogy egész típusú változókat 
használtam feltételnek. 

A másik különbség az, hogy vannak esetek, amikor az IF-ek 
simán lefutnak, de az AND hibával leáll. Például K = —1 érték¬ 
kel a 3. példa elkerüli a buktatót, azaz a tömb negatív indexű ele¬ 


mének lekérdezését, a 4. példa meg nem. Itt hiába adom meg 
szűrőfeltételként ,,K > = 0” tagot, és az hiába nem teljesül, 
az AND kiértékeléséhez a gép azért még megnézné a tömböt is, 
ami persze nem lehetséges. 

Van egy másik lehetőség a hibára: A = 2 B = 4 értékkel 
próbáld ki az 1—2. példákat! Ha nem világos, hogy az AND-es 
változat miért nem működik, akkor jó lenne még egyszer átfut¬ 
nod a VI. részt, ahol a logikai műveletek finomságait tárgyaltuk. 
A 2 AND 4 ugyanis egy művelet, amelynek az eredménye 0, azaz 
„hamis”. 

Tanulság: az AND olyan, mint a nő. Szerethetjük nyugodtan 
a szépségéért, ha sosem feledjük a csalfaságát. 

És most csapjunk bele a másik témába! Remélhetőleg ez is 
szolgál majd hasznos ismeretekkel. Kiválasztottam egy olyan kis 
programot, amely az újságban jelent meg (92/5., 8. oldal, keresd 
meg, kérlek), és amelyet én másképp írtam volna meg, össz¬ 
hangban az eddig bemutatott elveimmel. Miközben elmondom 
a saját ötleteimet, felidézhetjük kicsit a tanultakat, és felvethet¬ 
tek újabb témákat is. Ezekkel a kitérőkkel biztosan sokáig ki fog 
tartani ez az egy példa, de nem fogunk unatkozni. 
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< 1. > 



(2. ) 

o 


20 

IF A THEN IF 

B THEN PRINT 

20 

IF A AND B THEN PRINT "*" 


0 


(3. ) 



(4. ) 

o 

o 

20 

IF K>=0 THEN 

IF D(K) THEN END 

20 

IF K>=0 AND D(K) THEN END 

o 


O 

O 

o 


(5. ) 

40 RÉM *** KURZOR+PRINT * (C64> 

41 RÉM * SYS W,SOR,OSZLOP C,NYOMTLISTA C ; 3 3 

42 W=49152: FÓR 1=0 TO 33: READ V: S=S+V: POKE W+I.V: NEXT I 

43 READ V: IF SOV THEN PRINT "HIBA": END 

44 DATA 32, 253, 174, 32, 158, 183, 138, 72, 32, 253, 174, 32, 158, 183, 138, 168, 104 

45 DATA 170,24,32,240,255,32,121,0,240,6,32,253,174,32,160,170,96,4321 


O 

( 6 . ) 

O 1 XV$=CHR$(19): FÓR 1=1 TO 25: XV$=XV$+CHR$(17): NEXT I: RÉM HOME 8. LE 

2 XH$="“: FÓR 1=1 TO 39: XHS=XH$+CHRS(29): NEXT I: RÉM JOBBRA 
10 XV=3: XH=15: GOSUB 93: PRINT "4.SOR 16.OSZLOP" 

O 11 . . . 

98 RÉM ====== KURZOR (XV,XH;) 

n 39 PRINT LEFTS(XV$,XV+1);LEFT£(XHí,XH);: RETURN 


O 

O 

O 

O 

O 

O 

G 


O (7.) O 
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Először szólnom kell a program (egyetlen) hibájáról. A 370. 
sorban látható SYS W arra lenne hivatott, hogy a kurzort a meg¬ 
adott pozícióra (felső sor 22. oszlop) vezényelve kiírja a lemez¬ 
egységtől kapott hibaüzenetet. Mivel a C64 BASIC-je (a prog¬ 
ram ebben íródott) nem segít bennünket a kurzor közvetlen áthe¬ 
lyezésében, a szerző egy kis, e célra készült gépi kódú program¬ 
mal oldotta meg ezt a feladatot. Ez nagyon gyakori és egyszerű 
mód a BASIC-ben nehézkesen kezelhető problémák áthidalásá¬ 
ra. A SYS utasítás a megadott címen kezdődő (és korábban oda 
betöltött) gépi kódú programot szubrutinként hívja meg, azaz 
amikor az befejeződött, a BASIC program a következő utasításon 
folytatódik. Rendes esetben. 

Nem rendes eset például, ha a program kezdőcímét pontat¬ 
lanul közöljük a SYS utasításban a géppel, amely sajnos roppant 
kényes az ilyen apróságok gondos kezelésére. A példaprogram¬ 
ban a kezdőcím a W változó aktuális értéke. Mivel azonban ez 
az egyetlen hely, ahol a W a programban szerepel, természetesen 
ez az érték nulla. Az viszont biztos, hogy ott nincs a kívánt kis 
szubrutin, mert ott más, a gép számára rendkívül fontos byte-ok 
foglalnak a tárban helyet. Ilyen állapotban futtatva a programot 
még csak azt sem lehet megmondani, hogy a SYS utasításnak 
mi lesz a hatása (ez a tár pillanatnyi tartalmától és a processzor 
típusától függ), de arra mérget vehetünk, hogy semmi jó. A kö¬ 
vetkező dolgok maradtak el a programból: a kurzor kezeléséhez 
szükséges gépi kódú szubrutin közlése, a programban vagy a le¬ 
írásban utalás ennek betöltésére, és a W = kezdőcím utasítás el¬ 
helyezése a program elején. Szerencse, hogy ez a kínos hiányos¬ 
ság csak lemezhiba esetén okoz galibát, ha ez vígasztal valakit. 

Azért, hogy továbbmehessünk, az 5. példában megadom a 
hiányzó részt, BASIC feltöltős alakban. A mi esetünkben elég 
hozzáírni ezeket a sorokat a programhoz, de önállóan is felhasz¬ 
nálhatók. A bővítést úgy írtam meg, hogy W-nek bármilyen érté¬ 
ket adva működőképes legyen. A SYS után meg kell adni a sor 
és oszlop értékeit, és utána a PRINT-hez hasonlóan megadhatók 
a kiírandók is. Ahogy az a 370. sor tanúsága szerint eredetileg 
lehetett. 

Van, amikor nem alkalmas a helyzet a gépi kódú szubrito- 
nok használatára, vagy éppen nem akarjuk a BASIC területét el¬ 
hagyni (mint például a nemrég befejeződött játékpályázatban). 
Ilyenkorra van más megoldás is. A ,,POKE 214,sor: POKE 
211,oszlop: SYS 58732” utasítássorral a kurzort a kívánt helyre 
küldhetjük. A művelet lényege, hogy miután féltöltjük a megfe¬ 
lelő értékekkel azokat a rekeszeket, amelyekben a,gép a kurzor 
pozícióját tárolja, meghívunk egy szubrutint, amely a kurzort 
a tárolt értékek szerinti helyre viszi. Sajnos ez csak a C64-esen 
próbálható ki, de biztos vagyok benne, hogy más gépeken is le¬ 
het hasonló trükköt alkalmazni. 

Úgy tisztességes, ha megemlítek egy közismert megoldást, 
amely minden Commodore gépen megvalósítható. Ebben ki¬ 
használjuk, hogy a kurzorvezérlőjelek karakterláncban tárolha¬ 
tók, és kiíráskor végrehajtódnak (6. pl.). Csak emlékeztetőül: 
a bal felső sarok koordinátái hagyományosan 0;0. 

Lépjünk tovább! Felmerülhet a kérdés, hogy miért kellett 
lényegében az egész programot egy szubrutinba tenni, amiért is 
a „főprogram” csupán három rövid sor. Általában ennek való¬ 
ban nincs sok értelme, az olvashatóságot ez nem nagyon javítja. 
Ez esetben viszont a szerző egy olyan programot mutatott be, 
amelyet véleménye szerint a saját programunkban egy szubru¬ 
tinként fogunk elhelyezni, ha alkalmazzuk. A ki- és belépéseket 
tehát ennek megfelelően írta meg, nekünk a megfelelő átsorszá- 
mozás az összes feladatunk. 

Feltűnhet, hogy a nulla helyett, összesen hat esetben, csak 
egy tizedespont látható. Az az igazság, hogy az,, A = 0” határo¬ 
zottan lassabb, mint az „A = .” utasítás. Ennek az oka is bizto¬ 
san a különböző számábrázolási alakok közötti átalakítások és 
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az interpreter olvasási algoritmusa környékén keresendő. Jó, ha 
ez is eszünkbe jut, ha egy programot próbálunk felgyorsítani. 

Az a kár, hogy egy program olvasása közben egy pont las¬ 
sabban juttatja eszembe a nullát, mint egy nulla, és szerintem 
ezzel sokan vannak még így. Itt megint ütközni látszik a megszo¬ 
kás, az ízlés a hatékonysággal. Persze fontosnak tartom a gyorsa¬ 
ságot, sokszor utaltam is rá, de csak az ésszerűség határáig. A 
hat eset közül csak egyetlen olyan van (190. sor), ahol a nulla 
minden filenév elolvasásakor sorrakerül, az összes többi nullás 
értékadás az egész programban csak egyszer (!) hajtódik végre. 
Nyilván belátható, hogy mennyire káros az olvashatóságot felál¬ 
dozni egy olyan gyorsításért, amellyel nagyjából talán egy ezred- 
másodpercet javíthatunk egy másodperces nagyságrendű műve¬ 
let idején, nem beszélve akkor az egész program sokmásodper¬ 
ces futásáról. 

Szerintem minden gyorsítást érdemes előzőleg külön kipró¬ 
bálni, ha nem vagyunk egészen biztosak a hatásában. És csak 
akkor van értelme bevetni, ha a nyereség megéri a változtatásba 
befektetett munkát, és nem veszítünk el vele valami értékeseb¬ 
bet. Valószínűleg nem igazolható szabályosan, de tapasztalatom 
szerint mégis igaz, hogy egy (a programozó képességei szerint) 
elég jól megírt program futási ideje és az általa felhasznált tár 
mértéke fordított arányban áll egymással. Ez például azt jelenti, 
hogy ez a programozó számottevő gyorsulást csak tárveszteség 
árán érhet el. Az optimum megtalálása időrabló feladat, de sze¬ 
rencsére ritkán kell vele foglalkozni. 

A kép teljességéért mutatok néhány valóban hatékony fogást 
a gyorsításra. Kezdhetjük azzal, hogy a tömbváltozók használata 
mindig lassabb a skalárokénál. Az olvasáskor tehát ne rögtön a 
tömbbe, hanem egy N$ nevű átmeneti változóba gyűjtsük az ada¬ 
tokat. És csak akkor másoljuk azt a tömbbe, ha azt valóban meg 
akarjuk tartani, vagyis ha SEQ típusú. Ez utóbbitól nem lesz 
gyorsabb a program, csak értelmesebb. Egyébként meg kell je¬ 
gyeznem, hogy ha csak kiíratni szándékozunk a Elleneveket, ak¬ 
kor felesleges őket előtte egy tömbben tárolni, ha viszont tél¬ 
használásra összegyűjteni akarjuk, akkor értelmetlen a tömb tör¬ 
lése a 280. sorban. 

Sajnos most nem mondhatom el, hogy a ,nevű filc rész¬ 
letesen mit tartalmaz, de annyit tudni kell, hogy 32-byte-os ada¬ 
gokban kapjuk a fejlécet, a bejegyzéseket (neveket) és a szabad 
blokkok kiírását, de az első négy karaktert mindig lehagyjuk 
(180,250). A típusjele az N$ 23—20. pozíciójától kezdődik, at¬ 
tól függően, hogy a fiié hossza hány jegyű szám (1—4). Számít¬ 
hatunk a rövidebb file-okra, ezért kezdjük a típus keresését a 23. 
helytől (200). És végül kihasználhatjuk, hogy a név és a típus 
együtt mozog a hossztól függően, ezért a név előtti idézőjel 
mindig 19 karakterrel a típus előtt lesz (240). Ezzel megtaka¬ 
rítunk egy keresést, és egyben felkészítettük a programot a 
0—9999 blokkig terjedő hossz kezelésére, vagyis megszüntet¬ 
tünk egy újabb hiányosságot is. A javításokat a 7. példán muta¬ 
tom be, a beolvasási idő rövidülése kb. 30 százalék. Az, hogy 
közben nem vesztettem tárat, nekem azt jelzi, hogy a program 
még nem volt elég jó. 

Legközelebb ismét erre a programra alapozom a mondan¬ 
dómat, ehhez előkészítésként van három kérdésem. 

A 180. és 250. sorban négy-négy karaktert olvasunk be úgy, 
hogy azokat nem használjuk semmire. Miért jó, hogy ez kétszer 
szerepel? Mi lenne, ha inkább a 190. sor ciklusában végeznénk 
el ezt is? 

Egy file-ból olvasni „GET #” utasítással kell, és nem sima 
,,GET”tel. A program mégis működik, de vajon miért? 

Főleg C64-tulajdonosokhoz: mit csinál a SYS utasítás a 180. 
és 250. sorokban? 

Hódi Gyula 
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Hobbi ELEKTRONIKA 

C-64 bővítések 


EPROM Bank C64-hez 


Ha Ön a C64-et nem csak játékra, ha¬ 
nem a mindennapi munkája során hasz¬ 
nos segítőtársként — például adattárolás¬ 
ra, méréstechnikai feladatok elvégzésére, 
könyvelésre, szövegszerkesztésre — al¬ 
kalmazza, bizonyára érzi a kellemetlensé¬ 
gét a sok unalmas billentyűzésnek, prog¬ 
ramkezelésnek, lemezcserélésnek. 

A most ismertetésre kerülő EPROM 
Bank kiküszöböli ezeket a problémákat és 
egy panelre sűrítve az eddigi cartridge-ek 
előnyös tulajdonságait, 250 kilobájtnyi 
kapacitásával nagyon hasznos segítőtár¬ 
sunk lehet. A Bank lehetőséget nyújt a fel¬ 
használónak arra, hogy a kedvenc prog¬ 
ramjait a rendelkezésre álló ROM terüle¬ 
ten elhelyezze, innen egy gombnyomásra 
1—2 másodperc alatt beolvassa. Ezek a 
programok lehetnek lemezkezelők, gyor¬ 
sítók, másolók, szövegszerkesztők stb. A 
tárolandó programokat a felhasználó vá¬ 
laszthatja ki, a Bank szervezőprogramja 
segítségével pedig egy lemezre megszer¬ 
kesztheti az EPROM-ok tartalmát. Az így 
megszerkesztett fájl egy EPROM-égető 
segítségével az EPROM-ba bemásolható. 

Lehet, hogy ez az első olvasásra bo¬ 
nyolultnak tűnik. Megnyugtatok minden 
kedves olvasót, hogy nem kell megijedni: 
aki tudja, hogy a C64-et hol kell bekap¬ 
csolni, nyugodtan hozzáfoghat a művele¬ 
tek elvégzéséhez. 

Az EPROM Bank előnyei 

— A rendelkezésre álló tárolóhely a 
lemez kapacitásának másfélszerese. 

— A számítógéphez való csatlakoz¬ 
tatás nagyon egyszerű. 

— Tetszőleges nyelven írt programok 
tárolhatók. 

— A programok gombnyomásra in¬ 
dulnak. 

— A szoftver menüvezérelt technikát 
alkalmaz. 

— A tartalomjegyzék ABC sorren¬ 
dű. 

— A ,,—” karakter a kiválasztott 
programra mutat. 


A működtető szoftver 

A Bank EPROM-jainak szervezését, 
feltöltését, kiválasztását, beolvasását egy 
2764-es tokban elhelyezett vezérlő szoft¬ 
ver végzi. Ez a hardver része és nincs be¬ 
számítva azon memóriák közé, amelyek a 
programokat tárolják. 

A szoftver menüvel vezérelhető. Uta¬ 
sításait a gép egy sorban közli. Tételezzük 
fel, hogy a felhasználó EPROM Bankja 
tele van programmal. A Bank a program 
behívására kétféle lehetőséget nyújt. Fi¬ 
gyelembe veszi, hogy korábban már hasz¬ 
náltunk valamilyen autostartos programot 
és szeretnénk ezt változtatás nélkül hasz¬ 
nálni a Bank-ban. Ilyen program felépíté¬ 
sével már foglalkoztam a Hobby sorozat¬ 
ban, konkrétan a 92/10-es számban. Ott 
PLOFI néven ismertettem az autostartos 
kártya működését, ezért erre részletesen 
most nem térek ki. Lényege: az EPROM 
Bank szervező programja — a továbbiak¬ 
ban röviden Bankmester — minden 
EPROM-helyhez hozzárendel egy-egy 
funkcióbillentyűt, összesen nyolcat. Ezek 
valamelyikét működtetve újabb menü je¬ 
lenik meg és kigyullad a hozzátartozó 
LED, amely később emlékeztet arra, 
hogy a nyolc közül melyiket választottuk. 
A menü segítségével választhatunk EP- 
ROM-típust az alábbi feltételeket is figye¬ 
lembe véve. 

FI = 2764; 8 Kbyte-os. Működtetése után 
az autostartos program indul. 

F3 =27128; 16 Kbyte-os. Működtetése 
után újabb almenü jelenik meg: 
FI = alsó 8K 
F3 = felső 8K 

F5 = 27256 ; 32 Kbyte-os. Működtetése 
után újabb almenü jelenik meg: 

FI = első negyed 8K 
F3 = második negyed 8K 
F5 = harmadik negyed 8K 
F7 = negyedik negyed 8K 

Láthatjuk, hogy ez a típusválasztási 
rendszer nem túl hatékony, mert sokáig 


tart a programkeresés, hiszen ha a gép 
adta lehetőséget tekintjük, 32 programot 
tudunk a Bankban elhelyezni. Ide kíván¬ 
kozik még, hogy legtöbb használható 
program nem fér el 8 kilobájton, ami kü¬ 
lön problémát okoz. A 8 kilobájtos szele¬ 
teket össze lehetne fűzni egy kis gépi kódú 
rutinnal, de ehhez komoly gép- és szoft¬ 
verismeret szükséges. A fentiek miatt 
nem ajánlatos a programkeresésnek ezt a 
módját követni, mert ennél sokkal jobb és 
egyszerűbb a következő pontban ismerte¬ 
tésre kerülő SPACE-billcntyűvel történő 
programkeresés. 

Ha a SPACE (szóköz) billentyűt le¬ 
nyomjuk, akkor a képernyőn megjelenik 
a Bankban tárolt programok címlistája. A 
címek ABC-sorrendben követik egymást, 
nem pedig az EPROM-ban elfoglalt he¬ 
lyük sorrendjében. A programnév előtt 
egy ” jel látható, amely a kurzormoz¬ 
gató gombbokkal léptethető. Ha a nyíl a 
kiválasztott programra mutat, a RE- 
TURN gombbal aktivizálhatjuk. A főme¬ 
nübe való visszatérés az INS/DEL billen¬ 
tyűvel lehetséges. A ,,t” gomb megnyo- 
máával a Bankmestert aktivizálhatjuk. A 
Bankmester lehetőséget nyújt arra, hogy 
a Bank tárolóit a program szükségletének 
megfelelően töltse fel. A számításba jöhe¬ 
tő EPROM-ok és a tárolandó programok 
hosszának függvényében többféle megol¬ 
dás kínálkozik. 

— Több rövid program tölthető egy 
nagyobb kapacitású EPROM-ba. 

— Egy hosszú program tárolható 
több különféle kapacitású EPROM-ban. 

Az EPROM kapacitását nem szüksé¬ 
ges pontosan méretezni, mert a Bank¬ 
mester lehetőséget nyújt az üresen maradt 
memóriahelyek felhasználására az új 
programok betöltésénél. 

Összegezve: bármilyen hosszú vagy 
rövid programot eltárolhat egymás után 
láncba fűzve, amíg az EPROM Bank meg 
nem telik. A programok gépi kódúak vagy 
BASIC-nyel vűek lehetnek. A Bankmester 
a programokat lemezen szerkeszti össze 
aszerint, hogy milyen kapacitású chipet 
használunk. A ,, 1” billentyű működtetése 
után az alábbi menüből választhatunk: 
FI =DIRECTORY: a lemez tartalmát 
listázza 
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hív 

F8 = FŐMENÜ: vissza a főmenübe. 

Ha F3 -at hívjuk, a gép megkérdezi, 
hogy mit kell betölteni. Válaszként gépel¬ 
jük be pontosan a tárolandó program ne¬ 
vét. Ha nem emlékeznénk a névre: RE- 
TURN majd /7-gyel írassuk ki a könyvtá¬ 
rat. A programnév pontos beírása után a 
következő télirat jelenik meg: „PROG¬ 
RAM NEVE AZ ÉPROM-ban?” Ha a né¬ 
ven változtatni szeretnénk, gépeljük be az 
új nevet (max. 16 karakter), ha változat¬ 
lan marad: RETURN. Ez azért lényeges, 
mert a kész EPROM programja a Bank 
katalógusában a megadott néven fog beje¬ 
lentkezni. A név begépelése után változik 
a menü: 

HOGYAN INDUL A PROGRAM? 
FI START = RUN 
F3 START = SYS 

A válasz: BASIC programoknál FI, 
gépi kódú programoknál F3. Bármelyiket 
választjuk, a menü következő kérdése: 

MILYEN EPROM-OT VÁLASZT? 
FI ÚJ EPROM - 2764, 27 128, 27 256) 


Bank-ban futó programot, de még van 
benne üres hely. 

F5 ÚJRA IND. — Vissza a menü elejére. 

FI választása esetén a menü további 
kérdése egyértelmű. 

/3-nál más a helyzet. A menü kéri a 
régi adatokat tartalmazó lemezt. Ez az a 
lemez, amelyről az EPROM jelenlegi tar¬ 
talmát beégettük. A lemezen a program 
,,/l” karakterekkel kezdődik. Ez a két ka¬ 
rakter jelzi, hogy a program elő van ké¬ 
szítve a Bank számára. Ezt az új szoftver¬ 
hez is hozzáfűzi a Bankmester. Ha bemá¬ 
soltuk, kéri az új lemezt. A menü további 
pontja utasítást ad az adatmentésre. Men¬ 
tés után a directory a két összefűzött prog¬ 
ram közül csak az új nevet tünteti fel. 

Ha az új program nagyobb memória- 
területet igényel, mint amennyi a „régi” 
EPROM-ban még rendelkezésre állt, a 
program ezt a képernyőre kiírja és új chip 
behelyezését kéri a fájl fennmaradó részé¬ 
nek beégetéséhez. Á Bankmester által 
szerkesztett programokat célszerű üres le¬ 
mezre menteni. Ezeket később EPROM- 


égetővcl lehet a memória chipbe beírni. 
Célszerű a C-újság 93/1 számában, a 
Hobbi sorozatban ismertetett EPROM- 
égetőt használni, mert annak szoftvere ha¬ 
tékonyan támogatja a lemezkezelést. A 
legjobb megoldás az, ha az égető szoftve¬ 
rét a Bank egyik EPROM-ja tartalmazza, 
ezzel egy hatékony, rugalmas rendszerhez 
jutunk, ami jelentősen meggyorsítja a 
munkát. Ha égetővel már rendelkezünk, 
be kell szereznünk egy EPROM-törlőt is, 
hiszen előfordul, hogy egy-egy Bank-ban 
tárolt program elavul, mást szeretnénk 
helyette futtatni. A régi tartalom törlése 
után az új program az eddigiek ismereté¬ 
ben egyszerűen beírható az EPROM-ba. 
EPROM-törlésrejól használható a közön¬ 
séges kvarclámpa vagy az üvegburájától 
óvatosan megszabadított higanygőz lámpa 
is. 

A leírt funkciókat megvalósító áram¬ 
kör kapcsolási rajza látható az I. ábrán. 
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EPROM Bank C64-hez 
Az áramkör működése, 
szerelése, élesztőse 

Ezt a fejezetet ennél a témánál csak 
röviden, vázlatosan ismertetem, mert a 
részletes tárgyalás az IC, szoftverjének is¬ 
mertetését is megkívánná, ebbe azonban 
hely hiányában nem érdemes belemenni. 
Amit a működésről illik tudni, az a követ¬ 
kező. Az egész EPROM Bank tulajdon¬ 
képpen egy autostartos kártya. Ennek mű¬ 
ködését — mint már említettük — részle¬ 
tesen ismertettük a sorozatban. 

A gép bekapcsolásakor vagy a RÉ¬ 
SÉT gomb működtetésekor az ott leírtak¬ 
nak megfelelően zajlik le minden. 


Az IC 2 demultiplexer címdekódolást 
végez az órajel és az I/Q 2 jel segítségével. 
A címdekóder az EPROM Bank három 
egységét címzi az üzemmódjainak megfe¬ 
lelően az N„, N 2 , N 3 invertereken keresz¬ 
tül. N 2 F,-et hajtja meg, amely az IC, 
autostartos részét aktivizálja. Innen a 
szervező szoftver betöltődik a RAM-ba. 
Ezt a C64 ROML és EX ROM jele bizto¬ 
sítja. A beolvasás alatt D 9 világít. Ha 
megjelenik a menü, a LED kialszik, jelez¬ 
vén, hogy az IC 3 1 lekapcsolódik a busz¬ 
ról . Ez a művelet azonban nem automati¬ 
kusan, hanem F 2 segítségével megy vég¬ 
be. F 2 -re azért van szükség, mert ketté kell 
választani időben az IC,, valamint az 
IC 7 —IC, 3 EPROM-ok működtetését. 
Alaphelyzetből (bekapcsolás, RÉSÉT) 


indulva ugyanis először az IC, tartalmára 
van szükségünk, a többi EPROM tartalma 
egyelőre érdektelen. Ellenben ha a prog¬ 
ram már fut, a menü bejelentkezett, a 
helyzet fordított. A chipek kiválasztásá¬ 
hoz ezért külön-külön vezéreljük az EP¬ 
ROM-ok OE, CE bemenetét. Áz OE-t ve¬ 
zérli a C64 ROM L-je, a CE-t pedig 
IC,-ncl az F 2 közvetlenül, a többi EP¬ 
ROM esetében pedig az IC 6 demultiplexe- 
ren keresztül. Az F 2 Q-kimenete IC, en¬ 
gedélyezéséhez IC 6 tiltásával CE-n ke¬ 
resztül tiltja a többi EPROM-ot. 

Ha az IC, tartalmát beolvastuk a 
RAM-ba, az lekapcsolódik a buszról. To¬ 
vábbiakban a szervezőprogram veszi át a 
karmester szerepet és segít beolvasni az 
EPROM-okban tárolt programok valame¬ 
lyikét. A kiválasztás — mint korábban 
már említettük —.kétféleképpen történ¬ 
het. A funkcióbillentyűk segítségével, 
EPROM kijelöléssel, vagy a SPACE bil¬ 
lentyűvel , directory alapján. Az első eset¬ 
ben a szervező program az IC 5 -be beírja 
a kiválasztott EPROM kódját. Ezt IC* de¬ 
kódolja és a megfelelő CE L-rc húzásával 
engedélyezi a kiválasztott tokot. Ha ez 
8 kilobájtnál nagyobb kapacitású, az IC 5 
QO, Q7 vonalával tudjuk szelektálni, azaz 
egy 32 Kb-os EPROM-ból négy 8 Kb-os 
programcsoportot tudunk beolvasni. A 
kiválasztott program autostartosan indul, 
mint az IC, esetében. Más a helyzet a di- 
rectoryból történő választáskor. Ebben az 
esetben a tárolt programok mindegyiké¬ 
nek sajátos iniciáléja van, amit a beégetés 
során Bankmester tűz a program elé. Ez 
teszi lehetővé, hogy egy hosszabb progra¬ 
mot beolvashassunk akkor is, ha az több 
EPROM-ban van eltárolva. Szólni kell 
még a C, kondenzátor szerepéről, mert a 
gyakorlati tapasztalatok szerint nem min¬ 
den C64 esetében van rá szükség. S 010 - 
zatszámokat itt nem említek. Eddig úgy 
tűnik, hogy a régi dobozolású gépeknél 
nem kell, az újaknál szükséges, mert enél- 
kiil nem jelentkezik be az EPROM Bank. 

A kondenzátor az I/0 2 jelet késlelteti. 

Az áramkör csak jó minőségű furat¬ 
galvanizált panelre építhető meg. Mivel 
az a sok IC miatt finom rajzolatú, csak 
megfelelő gyakorlattal és lehetőséggel 
rendelkezők tudják elkészíteni. 

Egyszerűbb a kész furatgalvanizált 
nyák-ot a szerzőnél megvásárolni. Címe, 
árajánlata a hirdetésben megtalálható. A 
nyák mérete 105x170 mm. A"panelt az ül¬ 
tetési rajz formátumának megfelelő mé¬ 
retre kell reszelni úgy, hogy a bővítőport * 
csatlakozójához kényelmesen illeszked¬ 
jen. Ezután fordítsuk lefelé a panel 
„FORR.” jelzésű oldalát. Az ültetési rajz 
(2. ábra) szerint tegyük helyükre az el¬ 
lenállásokat és forrasszuk be őket. Ezt kö- 
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veti a LED-ek és az ICu beültetése. A 
LED-eknél vigyázzunk a megfelelő pola¬ 
ritásra. Az IC-k számára ültessünk be fog¬ 
lalatokat. Ennél az áramkörnél ezt célsze¬ 
rű megtenni, mert egy esetleges hibát 
cnélkül nehéz behatárolni. A foglaltokat 
a szerző egységcsomagja tartalmazza. 
Ügyeljünk a gondos szerelésre, hibátlan 
forrasztásokra, mert ezen múlik az áram¬ 
kör működőképessége. Ha kész az áram¬ 
kör, dugas/.oljuk a foglalatba az ICi-et. A 
Bank-ot csatlakoztassuk a kikapcsolt gép¬ 
hez. Bekapcsolás után bejelentkezik a 
már említett menü. Ez alapján gyakorol¬ 
juk a működést. Ha szoftverhiba miatt 
„kiakad” a gép, működtessük a RÉSÉT 
gombot. 

Miután a rendszer megfelelően mű¬ 
ködik, hozzáfoghatunk az EPROM-ok 
tartalmának összeállításához, melyet le¬ 
mezre szerkeszthetünk meg. Ilyenkor 


még lehetőségünk van javításra, törlésre, 
cserére. Miután kész az elképzelésünknek 
megfelelő EPROM-tartalom, a lemezről 
EPROM-égetővel égetjük be a progra¬ 
mot. Elvileg bármilyen égető használha¬ 
tó, csupán az a követelmény, hogy az ol¬ 
vasni tudja a C64 lemezét. Mivel ez kom¬ 
patibilitási problémák miatt igen kemény 
megszorítás, célszerű az általam közölt 
EPROM-égetőt használni. Ennek leírása 
a Hobbi sorozatban, a C-újság 
számában található. Természetesen mint 
minden eddig megjelent téma, egységcso¬ 
mag formájában az is megvásárolható. 
Létezik hozzá olyan program is EPROM- 
ba égetve, amely csak a Bankba fut. Ez az 
EPROM behelyezhető az EPROM Bank¬ 
ba. Az EPROM Bank és az égető így 
együtt alkot egy igazi profi rendszert, 
amivel szinte minden olyan probléma 
megoldható, amely a C64 bővítésével 


kapcsolatban felmerül. Befejezésül né¬ 
hány jó tanács: 

— A kártyát csak kikapcsolt számító¬ 
géphez szabad csatlakoztatni. 

— A kártyából EPROM-ot kivenni 
vagy betenni csak kikapcsolt állapotban 
szabad. 

Az IC-k pozicionálása az ültetési rajz 
szerint történik. A felhasználható 
EPROM-ok típusa 2764, 27128, 27256 (ez 
utóbbi alkalmazása a legcélszerűbb). 

Az. EPROM Bankot építeni szándéko¬ 
zóknak segít a szerző HOBBI ELEKTRO¬ 
NIKA üzletének szolgáltatása. Az, üzlet¬ 
ben működő mintadarabok megtekintése 
mellett vásárolhat panelt, IC-t, egység- 
csomagot, készterméket. 

Cím: Bp. VII., Dózsa György 16. I: 
122-8892. Részletes árajánlat a borító 
második oldalán megtalálható. 


NOVOTRADE—2C Kft. ÁRLISTA 


Hardverek 


C-64 alapgép 


13 990 Ft 

VC 1541/11 floppy drive 


15 990 Ft 

Datasette 


2 990 Ft 

Amiga 500 alapgép 


39 990 Ft 

Amiga 500 Plus alapgép 


48 000 Ft 

1351 Mouse (C-64-hez) 


2 990 Ft 

A 520 RF modulátor 


3 900 Ft 

Amiga tárbövítő 


6 000 Ft 

RocHard Hard disk illesztő 
RocHard Hard disk illesztő 

+ 

22 500 Ft 

40 Mbyte Winchester 

50 000 Ft 

RocGen Genlock RG300 


10 750 Ft 

Ethernet Card (A2000-hez) 


35 000 Ft 

MPS 1230 nyomtató 


24 500 Ft 

Philips 8833/11. (Amiga, C-64) 

33 000 Ft 

C64 játékok 

kazetta 

lemez 

Chamonix Challenge 

499 Ft 

549 Ft 

Eddie Edwards Super Ski 

499 Ft 

549 Ft 

Hostages 

549 Ft 

599 Ft 

Impossible Mission II 

581 Ft 

668 Ft 

Rolling Twins/I want more.. 

— 

549 Ft 

Operation Neptune 

— 

599 Ft 

Prohibition 

499 Ft 

— 

Sim City 

— 

599 Ft 

Space Racer 

— 

599 Ft 

Tin Tin. on the Moon 

549 Ft 

599 Ft 

Warlock's Quest 

499 Ft 

549 Ft 

Xonox 

399 Ft 

499 Ft 

Import járékkazetták 

549 Ft 

— 


2C Áruház, Budapest XIII., Balzac u. 35. 


Hardverkiegészítők 


2 RCA kábel 

410 Ft 

3 RCA kábel 

575 Ft 

Hálózati kábel 

480 Ft 

Adat kábel 

360 Ft 

Antenna kábel 

340 Ft 

Antenna váltókapcsoló 

490 Ft 

C64/128 Euro kábel 

685 Ft 

Amiga Euro kábel 

1 250 Ft 

Ékezetes Eprom SP180 VC 

2 545 Ft 

Ékezetes Eprom MPS 1230 

3 500 Ft 

Joy (Quick Shot II Plus) 

850 Ft 

Tápegység C64 

3 000 Ft 

Tápegység VC 1541/11 

3 000 Ft 

12" mono filter 

700 Ft 

12" color filter 

750 Ft 

14" mono filter 

800 Ft 

14" color filter 

850 Ft 

Disk Box 5'25" 3 db 

99 Ft 

Disk Box 307 5'25" 50 db 

700 Ft 

Disk Box 309 5'25" 100 db 

800 Ft 

Disk Box 310 5'25" 120 db 

850 Ft 

Disk Box 313 3'5" 10 db 

150 Ft 

Disk Box 318 3'5" 40 db 

550 Ft 

Disk Box 319 3'5" 80 db 

750 Ft 

Disk Box 320 3'5" 140 db 

800 Ft 

Mouse Pad 581 

250 Ft 

Mouse Pad + Holder 

500 Ft 

Mouse Set 

1 000 Ft 

Cleaner 562 5'25" 

150 Ft 

Cleaner 563 3'5" 

150 Ft 

Mouse Holder 

250 Ft 

Mouse takaró 

250 Ft 

Copy Holder 411 

750 Ft 

Copy Holder 412 

1 250 Ft 

Display szemüveg 

750 Ft 
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MORSE-gyakorló 


A C-Újság régebbi számait böngészve, az 1991/4. számban 
találkoztam egy morse-tanuló (tanító?) programmal. Sajnos a 
program didaktikája eleve téves. A morse ábc-t ugyanis, .füllel” 
kell megtanulni anélkül, hogy az egyes betűk jelcsoportját 
„pont-vonás”, kombinációként jegyezzük meg. így tehát pl. az 
, ,a” betű nem ,,hanem, ,ti/tá”. (Én még ismertem olyan vas¬ 
úti távírászokat és forgalmistákat, akik félálomban is felismerték 
a távírógép kopogásából a hívójelüket, és füllel vették a 
szöveget.) 

Előkerestem hát a néhány éve pihenő morse-gyakorló prog¬ 
ramomat, amely némi átdolgozás után a lista szerinti formát öl¬ 
tötte. Három üzemmódban dolgozik: 

1. A beírt betűk megjelennek a képernyőn, majd megszó¬ 
lalnak. 

2. A képernyőre írott szöveg , .néma”, de lemezre menthető. 

3. A lemezről behívott szöveg folyamatosan kiíródik a kép¬ 
ernyőre. Minden betű után megszólal a morse jele. 

„Hangzó” üzemmód választása esetén beállítható a hang- 
magasság és a jelsebesség. 

A hangmagasság beállításakor egy, csupán emlékeztető jel¬ 
legű szám mutatja a frekvencia — egyébként hallható — növelé¬ 
sét. A jelsebesség alapegysége a , ,ti” jel megszólalási ideje. Ezt 
az értéket tudjuk növelni .05 sec-os lépésekben .5 sec-ig. A kijel¬ 
zés másodpercben történik. A jelarányok: 


,,ti" 1 egység 

,,tá" 2 egység 

jelköz 1,5 egység 

betűköz 3 egység 

szóköz 6 egység 

Az egyes morse-jelek „maszkja” a datasorokban látható. 
Az 1-eseka „ti” hangot, a 2-esek a „tá”t reprezentálják. A prog¬ 
ram a,,maszkokat” sztringváltozóként kezeli, és karakterenként 
értékeli. A VAL függvénnyel előálított érték, a megszólalási időt 
határozza meg. 

A program az összes alfanumerikus karakteren kívül, az 
alábbi írásjeleket tudja kezelni: pont, vessző, kérdőjel, kettős¬ 
pont, pontosvessző, kötőjel, törtjei, zárójel. 

Tekintve, hogy a használt karakterkészlet az ASCII 39 és 
90 közötti tartományban van, akadnak olyan karakterek, me¬ 
lyeknek nincsen morse-kódja. Ha egy ilyen billentyűt nyomunk 
meg, a „tévedés” morse-jelet halljuk. 

A morse-ábc nem tesz különbséget a bal és jobboldali záró¬ 
jel között, így a program sem tudja ezt megtenni. Mindkét (ke¬ 
rek) zárójelnek ugyanaz a morse-kódja. 

A programot — a gyakorláson túlmenően — ajánlani tudom 
a rádióamatőröknek! Ha a számítógép és adójuk modulátorfoko¬ 
zata közé megfelelő interface-t építenek, máris megkönnyítik 
munkájukat. Pl. a lemezrevett körözvényeket bármikor, bármi¬ 
lyen sebességgel leadhatják. 

Szász Sándor 
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0 RÉM MORSEGYAKORLÜ 
10 : 

20 F'ÜKE 808,234 

30 A=54272: B=56577: PC1KE 56579,1:DIM A* (51) 

40 FOKÉ 53280,8:POKE 53281,8:PRINT CHR$(158)CHR*(142)CHR4(8) 
50 FÓR L=1 TO 51:READ A4(L):NEXT L:T=l:GOTQ 90 
60 TI4="000000":W=X*(T*.3) 

70 IF TI<W THEN 70 
80 RETÜRN 

90 PRINT"2Ül?l ****************** *" 

100 PR INT "Élül jj MORSE GYAKORLÓ PROGRAM " 

110 PRINT"JlEl LEMEZZEL FOG DOLGOZNI ? dlB3EN/ÍN5IM" . 

120 GET W4:IF W$<>“I" AND W4<>"N" THEN 120 


130 Q=1:IF W4="N" THEN 190 

140 PRINT"£l?l IRAS LEMEZRE <F-1>" 

150 PRINT"£l?l OLVASÁS LEMEZRŐL <F~3>" 

160 GET W4: IF W4<>CHR4<133) AND W$<>CHR$<134) THEN 160 
170 IF W4=CHR4(133) THEN Q-2:G0T0 390 
180 Q=3:POKE 214,9:SYS 58640 

190 PRINT" íl*l ! iANGMAGASSAG <F-1>" 

200 PR INT “MSI ADASSEDESSEG <F-3>" 

210 PRINT"ÍI?] O.K. <SPACE>" 

220 PRINT" Jlsl E N D <F-8>" 


230 PRINT"ÍIül *******************" 

240 GET W4:IF W$<>CHRÍ(133) AND W4<>CHR4(140) THEN 240 

250 IF W4=CHR4(140) THEN END 

260 IF P>29 THEN 280 

270 POKE A+24,15:POKE A+6,240:P=30 

280 POKE A+4,33: POKE 2U,34:P0KE 214,U:SYS 58640:PRINT (P-20)/10;" “ 
290 POKE A+l,P:IF P=82 THEN P=30 

300 GET W4: IF W4<>CHR4(133) AND W4< >CHR4(32) THEN 300 

310 IF l*J4=CHR4 (133) THEN P=P+2:GŰT0 280 

320 POKE A+4,32:POKE 198,0 

330 GET W4: IFW40CHR4 (134) THEN 330 
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34Ű IF T>10 THEN T=1 

350 POKE 211,34: POKE 214,14: SYS 58640: PR INT STR$CT/20>; 
360 Z=1:X=1:SOSUB 520 

370 BET Wt: IF W*<>CHR*(134) AND W*<>CHR*(32) THEN 350 
380 IF W*=CHR*<134> THEN T=T+1:G0T0 340 
390 Z=0:PrÍJ.NT"aSl: IF Q=1 THEN 410 
400 INPUT "Él A FI LE NEVE: "; C* 

410 IF Q<3 THEN F'RINT"Él KEREM Á SZÖVEGET:" 

420 PRINT:QN Q GOTO 430,590,610 
430 POKE 204,0 

440 GET W$:IF W*="" THEN 440 
450 IF PEEK(207) THEN 450 
460 POKE 204,1 

470 PRINT W$;:IF W$=CHR$(32)THEN X=3:G0SUB 60:GOTO 560 

480 IF W*=CHR$(140) THEN GOTO 570 

490 D=ASC(Wt)-39:IF D<1 OR D>51 THEN 430 

500 IF Q=2 THEN 560 

510 FÓR 1 = 1 TO LEN(A4- (D)):Aá-MIBf(Aí(D),1,1):X=VAL(A$) 
520 POKE A+4,33:POKE B,1:ÜOSUD 60 
530 POKE B,0 

540 POKE A+4,32:X=1.5:GOSUB 60:IF Z THEN RETURN 

550 NEXT I:X=1.5:GOSUB 60 

560 QN Q GOTO 430,600,620 

570 IF Q>1 THEN CL0SE2 

580 GOTO 90 

590 0PEN2,8,2, " 5): " +C$+ " , S, W " : GOTO 430 
600 PRINT#2,Wá : ; : GOTO 430 
610 0PEN2,8,2,C*+",S,R" 

620 IF ST< >0 THEN 640 
630 GET#2,W$:GOTO 470 
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640 CLOSE 2: PRINT: PRINT"ílSl VEGE! <F-1>' 

650 PR INT "Él ISMÉTLÉS: <F-3>" 

660 GET W$:IF W$="" THEN 660 
670 IF Wí=CHRá : (133) THEN 90 

680 IF W*=CHR* (134) THEN PRINT"iíM£l:GOTO 610 
690 GOTO 660 

700 DATA 212212,212212,11111111,11111111 
710 DATA 221122,211112,121212,21121 
720 DATA 22222,12222,11222,11122,11112 


O 

ü 

O 

O 



BEFŰZŐ 


Ez a kis ,.nyúlfarknyi” program egy igen hasznos kényelmi 
funkciót valósít meg. 

Valószínűleg sokaknak eszébe jutott, hogy milyen jó is len¬ 
ne, ha az , ,user” programlemezünkön a legtöbbet használt prog¬ 
ram (pl.: X-Copy) közvetlenül a lemez betétele után induljon és 
ne keljen végigvárni, amíg visszakapjuk a vezérlést. 

Ez a program a startup fiié megfelelő helyére befűzve meg¬ 
valósítja a fenti kívánalmakat. 

A listában az Execute utasítás után a (program) felírat helyé¬ 
re kell beírnunk a sokszor használt program nevét. Ha mindent 
elvégeztünk és boot-oljuk a lemezt, akkor a bal egérgomb nyom- 
vatartásával még a vezérlés visszakerülése előtt elindíthatjuk a 
kívánt programot. 
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416x200 


Régi commodore-s vagyok, bár a C64-es programozásával 
mártsak néha foglalkozom, de egy februári újságcikkük alapján 
támadt egy ötletem, amit megvalósítva és sok sikert kívánva kül¬ 
dök commodore-osoknak. 

A program kikapcsolja a jobb és bal oldali keretet (bordert), 
így ezt a területet nagyfelbontású grafikának lehet felhasználni, 
ezáltal megnövelve a vízszintes felbontást. 

Ezt úgy éri cl, hogy a gépikódú rutin a videó chippel (VIC) 
szigorúan szinkronban futva 20 raszter soronként tologat függő¬ 
legesen 2—2 sprite-ot a keret jobb és bal oldalán. Mivel hogy 
a képernyő függőleges felbontása 200 rasztersor, a sprite-é pedig 
21, így összesen 10-szer kerül sor a 4 sprite eltolására, másodper¬ 
cenként 50-szer. Ez azt jelenti, hogy összesen 40 sprite-ra van 
szükség ahhoz, hogy tédni tudjuk a keretet. Ezekkel a , ,4 sprite- 
okkal” nő meg a vízszintes felbontás 320-ról, elméleti 416-ra 
(320+4*24). Azért elméleti, mert a különböző megjelenítők 
más és más szélességben használják a képcsövet, így gyakorlat¬ 
ban 416 helyett kb. 380-as vízszintes felbontást lehet elérni. (Tu¬ 
domásom szerint ez az első ilyen program, de ha valaki rendel¬ 
kezik vagy tud hasonlót azt nagyon szívesen fogadnám.) 


A program használata a gépikódú rész betöltésével kezdő¬ 
dik, amit vagy a DATA sorokból vagy az assembler forrásból le¬ 
het bevinni. A program SYS 49152-vel indul, de ahhoz, hogy a 
„széles” felbontású képernyőt használni tudjuk, még be kell állí¬ 
tani BASIC-ból (v. gépikódból) a VIC-et HÍRES üzemmódba, 
majd a VIC báziscímét a CIA#Il-vel eltolni $4000-re (16384), 
továbbá be kell állítani a színeket és törölni a bittérkép memóriá¬ 
ját. A sorrend mindegy, de azt megjegyezném, hogy a SYS 49152 
kiadása után a programok futása 1/3-ára csökken a megszakítá¬ 
sok miatt. A beállításra példa a GYALOGSZINUSZII nevű BA¬ 
SIC prg. „GRAPIC MODE” nevű subrutinja. Visszatérni ka¬ 
rakteres üzemmódba ugyanígy lehet lásd a „CARACTER 
MODE” nevű subrutint. Pontok rajzolásához a „PLOT” nevű 
subrutin adhat algoritmus ötletet. Persze aki gondolja megvaló¬ 
síthatja gépikódban is ezt a 3 subrutint. 

A program remélem megnyerte tetszésüket, használatához 
sok sikert kívánok. 
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KUKÉ 5326b .. KEKK < 53265 > ÜK 32 ; KL-.M 

VM=PEEK< 53272) : KOKÉ 53272/ 1 1*16 : KÉM >. , 

FOK 1=16384+11*1024 10 16384+12*1024-25 : KOKÉ I > HT+SZ*16 ; NEXT : KÉM KÉP SZÍNEI 
KE«PEEK < 53280 > ■ KEN KEKE f'SZ ÍN I HROLftS 

FOKÉ 53280/ Hí : FOK 1=0 "IU 3 = PÜKE 53231 + 1 / 82 : NEKI : KÉM < 8 KEKET SZÍNEI > 

FOK 1 = 16334 TŰ 26343 : POKF. !.• Ü-HEXT : REM < BIT TÉRKÉP TORLESE > 
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POKE 53265/ F'EEKC 53265> HMD <255 
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PÜKE 53272/VM 
SYS 43133 
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IF x>47 HNJJ x <.368 THEN C= 16384+40*<YHND248>+<<X-48)HND504)+<YHND?>:GOTO 540 
R=lNT<X/8> : K=K-40*SUN<K HMD 32) 

L=INT<K/3):C=24384+64ü*L+K-3*L+t>4*1NT<Y/20)+3*Y-63*INT<V/21> O 
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Keresem a PRINTFOX leírá¬ 
sát, valamint az EDDIFOX 
programot. Cím: Gajer Gy. 
Ált. Iskola, 9500 Celldö- 
mölk, Árpád u. 28. 

Eladó C-128 + 1571 floppy, 
valamint kb, 200 db játékle- 
mcz. Ár: 25.000 Ft. Hajdany 
Ádám, 1145 Budapest, Újvi¬ 
lág u. 39/b. 

Szuperajánlat! Eladó egy 
MPS-801-es nyomtató + fes¬ 
tékkazetta + programok 9000 
Ft. Nagy Csaba, 1072 Buda¬ 
pest, Akácfa u. 30. 


Megvételre vagy másolásra 
keresem a Citizen 120D 
nyomtató magyar nyelvű leírá¬ 
sát. Kovács Gábor, 1046 Bu¬ 
dapest, Sporttelep u. 3. 11/6. 

Eladó! C-64- konfiguráció 
50.000 Ft, Atari + 100 lemez 
+ floppy. Tel.: 227-43-11. 
Kérje Vasanits Pétert, délután 
5-8 óra között. 

Eladó C-64/II + 1541/11 + 
SPEEDDOS, MSP-803 prin¬ 
ter, MK6.0 Cartridge, 100 db 
lemez + 4 joy, könyvek, stb. 
40.000 Ft. Tel.: 177-89-65. 


Szuper C-64 programok 3M- 
es lemezen, leírással. 20 Ft- 
os bélyegért színvonalas tá¬ 
jékoztatót és listát küldök. 
Boros Attila, 4200 Hajdúszo¬ 
boszló, Hősök tere 21. 

C-64-re a legújabb programok 
eladók lemezen 65 Ft/lemez 
áron. 5300 program közül vá¬ 
logathatsz. Minden levélre vá¬ 
laszolok! Szabó Sándor, 1204 
Budapest, Maros u. 98. 

Helló Mindenkinek!! Ismét 
itt a T.K.S. Ha akarsz 1250 
darab lemezt szuper demókk- 


kal, játékkal, felhasználóik¬ 
kal (92-eseket), akkor sürgő¬ 
sen írjál. A buli Amigára, és 
C-64-re egyaránt érvényes. 
Akkor a cím: 8000 Székes- 
fehérvár Benke F. u. 13. fszt. 
1. Curadox of T.K.S. Ja még 
valami: csak válaszboríték el¬ 
lenében küldöm el a teendő¬ 
ket. Mindenkinek B.U.É.K. 
Na pá. 

Keresem C-64-re 1 kazettára 
a Shoot’em un Construction 
Kit-et (Fizetek, mint a kö¬ 
les!). Cím: 2626 Nagymaros, 
Jókai u. 4. Tel.: (27) 54-342. 
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OTP-HITEL 


1. A program kezelése: 

A menüpontok alapján, a kérdésekre 
kell válaszolni. 

2. A program célja: 

OTP kamatozású kölcsönök számítá¬ 
sa, vizsgálata. 

3. A program műfaja: felhasználói 
program. 

4. A program leírása: 

— A program segítségével, tetszőle¬ 
gesen megadott adatokkal a havi törlesz¬ 
tés számítható. A kért adatok: a hitel éve, 
a hitel összege, hitel kamata, törlesztő 
évek száma. Ezek az adatok lehetnek a ré¬ 
gen megkötött szerződés jelenlegi adatai 
is. így a hitel éve: 1992-nek, a hitel össze¬ 
ge: az évzáráskor fennmaradt összeggel 
egyezik meg. A hitel kamata: a jelenlegi 
32%, a törlesztő évek száma: a fent ma¬ 
radt éveknek felel meg. A program két fáj¬ 
ta képpen számolja ki a törlesztés össze¬ 
gét, így a programozó képernyőn ellen¬ 
őrizheti a számok helyességét. A képer¬ 
nyő három részre van osztva. 

1. Felső részen a kért adatok jelen¬ 
nek meg. 

2. A középső részen a gép által szá¬ 
molt adatok: 


— a hitel évenkénti kamatai (kamatos 
kamat) 

— a hitel lejártakor fennmaradt hitelma¬ 
radék ennek általában nullának kell 
lennie) 

— a kamatösszege, az évek során számolt 
kamatok összege 

— a visszafizetés összege, a kamatok és a 
hitel összege. (Ennek meg kell egyez¬ 
nie a törlesztés összegével.). 

3. Alsó részen a képlettel számolt 
adatok: 

A képlet a középiskolákban használa¬ 
tos függvénytáblázatból lett kölcsönözve 
(t kölcsön törlesztéshez szükséges évi 
részlet) 

— évi törlesztés 

— havi törlesztés: évi törlesztés lebontása 

— törlesztés összege: évi törlesztés és a 
törlesztő évek számával számolva. 

— A program tetszőleges adatokkal táb¬ 
lázatot készít. A táblázat nagyon hasz¬ 
nos lehet, további törlesztésünk figyelé¬ 
sénél. 

A kért adatok: hitel összege és a hitel 
kamata. 

A gép ezután elkészíti a táblázatot, 
melyből a következőket lehet kiolvasni. 


Egy választott havitörlesztés esetén, 
a felvett hitelt mennyi év alat törleszthet- 
jük. Továbbá a felvett hitel, a kamatokkal 
együtt mennyire ,,duzzadt meg”. (Ponto¬ 
sabban a hiteltörlesztés összegét.) Látható 
a táblázatból, hogy a törlesztő évek növe¬ 
kedésével a havi törlesztés csökken. Hosz- 
szú távon a havi törlesztés nagysága meg 
is áll. De a hiteltörlesztés összege több¬ 
szöröse a felvett hitelnek (kamatok miatt). 

A megoldás a hitelektől a lehetősé¬ 
gekhez mérten, minnél hamarabb meg¬ 
szabadulni. Havi 100 forintok esetén is 
éveket lehet nyerni. A kapott táblázatot kí¬ 
vánság szerint, ki is lehet nyomtatni 
(annyi példányban, amennyiben kívánja a 
felhasználó). 

5. Programozási feladatok megoldása: 

— matematikai képlet alkalmazása 

— táblázat nyomtatása 

6. Megjegyzés: 

— A programmal kapott adatokat ne 
vegye senki 100%-nak, nem biztos, hogy 
megegyezik az OTP adataival. Az OTP 
különálló rendszer, nem biztos, hogy ér¬ 
demes vele fillérekért veszekedni. A ka¬ 
pott adatok arra viszont nagyon jók, hogy 
tájékozódjunk. 



AZ 

5-RE VÉGZŐDŐ SORSZÁMÚ SOROKAT NEM KELL BEÍRNI! 


0 



O 

o 

10 

RÉM-COMMODORE GEPEKRE- 

O 


20 

RÉM *************************** 


o 

30 

RÉM * OTP-HITEL * 

n 

40 

RÉM * KÉSZÍTETTE: * 


Q 

50 

RÉM * L00S JÓZSEF * 

0 

60 

RÉM * COMMODORE PLUSZ4 GÉPÉN. * 


70 

RÉM *************************** 


O 

80 

RÉM- 

o 


90 

PRINT“Zr:D1M C(36) 


O 

95 

RÉM [CLR1 

o 

100 

PRINT"!ÍMMaiJMiJMia.m!MiO T P KAMATOZÁSÚ” 


O 

105 

RÉM 5XILE3 12XCJ0BB1 

o 

110 

PR I NT “ í@.gílMWJlí!fMiF;0LCS0N0K" 


115 

RÉM [LEI 15XCJ0BB1 


O 

120 

PR I NT" SalM-" 

o 


125 

RÉM 2XÍLEJ 2XCJOBB] 36X[-] 


O 

130 

PR I NT" :?H!Mi!MPBiliiB9giiS!SilSgÜií-S00LS0FT-" 

o 


135 

RÉM 5XCLE] 14X[JOBB] 


0 

140 

PR I NT" IMimWMMMMMK 1991 >' 

o 

145 

RÉM [LE] 16X[JOBB] 

0 

150 

FÓR WW=1 T0 1000:NEXT WW 

0 

160 

PRINT-J' 


165 

RÉM [CLR] 


o 



o 


o 
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o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


170 PRINT-J9Ü1. ON ÁLTÁL MEGADOTT ADATOKKAL. KOL-" :PRINT"jJMíBCSON TÖRLESZTÉS 
175 RÉM CLE] [JOBB] 4X[JOBB] 

180 PRINT"SZÁMITASA. ■ 

190 PRINT“g|í2. TETSZ. ADATOKKAL TABLAZAT KÉSZÍTÉSÉ" 

195 RÉM [LE] [JOBB] 

200 PRINT“;p|]3. VEGE." 

205 RÉM [LE] [JOBB] 

210 PRINT" - ; -■ 

215 RÉM [LE] 40XÍ-3 

220 PRINT" MWamaaiMiK VÁLASSZON 1-3 I) 

225 RÉM 6XILE] 3X[JOBB] 

230 PRINT‘ Mi»Ha TOVÁBB,LAPOZAS-BARMELY BILL.-VEL «' 

235 RÉM [LE] 3X[JOBB] [CTR/9] [CTR/0] 

240 GET A$: IF A$="" THEN GOTO 240 
250 IF AS="1* THEN J=4:GOTO 310 
260 IF A$="2" THEN GOTO 650 
270 IF A$="3” THEN PRINT"3":END 
275 RÉM [CLR] 

280 IF A$<>“ 1 “ OR ASO"2“ OR A$<>"3" THEN GOTO 240 
290 RÉM ********** 1. *************** 

300 RÉM - 

310 INPUT "jHITEL EVE:";EV 
315 RÉM [CLR] 

320 INPUT “HITEL ÖSSZEGE:";0S 
330 INPUT "HITEL KAMATA:";KA 

340 INPUT "TÖRLESZTŐ EVEK SZAMA :”;EK:VE=EV+EK 

350 PRINT"-" 

355 RÉM 40X[-] 

360 RÉM - 

370 PRINT"iT 
375 RÉM [CLR] 

380 PRINT"HlTEL FELVETEL EVE:";EV 
390 PRINT"HITEL LEJARASANAK EVE:";VE 
400 PR INT "Hl TEL KAMATA : , 3 " ; KA ; " 2 % " 

405 RÉM [CTR/9] [CTR/0] 

410 PR INT“Hl TEL ÖSSZEGE:“;0S 

420 PRINT"========================================“ 

425 RÉM 40X[=] 

430 GOSUB 610:G0SUB 540 :PRINT"*I" 

435 RÉM [LEI 

440 PRINT"MARADÉK HITELINT(E) 

450 PRINT"KAMAT ÖSSZEGEINT(KO) 

460 PRINT"VISSZAFIZETÉS ÖSSZEGE;0S+INT(K0> 

470 PRINT”-* 

475 RÉM 40X[-D 

480 PR INT"HAVI TÖRLESZTÉSA/12 
490 PRINT"ÉVI TÖRLESZTÉS:";A 
500 PR INT "TÖRLESZTÉS ÖSSZEGEA*EK 
510 GET A$:1F A$="" THEN GOTO 510 
520 GOTO 160 

530 RÉM - 

540 KO=0:E=OS 
550 FÓR Q=1 TO EK 
560 C(Q)=E*(KA/100) 

570 PRINT INT(C(Q)), 

580 KO=KO+C(Q) 

590 E=E+C(Q)-A 
600 NEXT Q:RETURN 

610 RÉM - 

620 A=OS*((1+KA/100)TEK)*((KA/100)/<((1+KA/100)TEK)-1)) 

630 RETURN 

640 RÉM *********** 2. *************** 

650 RÉM - 


O 

O 

O 

O 

O 

O 

O 

O 

O 

Ü 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

660 


665 


670 

o 

675 


680 

o 

690 


695 

o 

700 


710 

o 

720 

725 


730 

0 

740 


750 

o 

760 


770 

o 

780 

790 


795 

o 

800 


810 

o 

820 


830 

0 

840 


850 


860 

o 

870 


880 

o 

890 


900 

o 

910 


920 

o 

930 

935 


940 

0 

950 


955 

o 

960 


965 

r> 

970 


975 


980 

o 

990 


1000 

o 

1005 


1010 

o 

1020 


1030 


1040 

o 

1050 


1060 

o 

1070 


1080 

o 

1085 


PR INT"3* ; INPUT" JIJHITEL ÖSSZEGE;' 1 ; OS 
RÉM [CLR] [LEI [JOBB] 

INPUT" JUHI TEL KAMATA:";KA:PRINT"ü 
RÉM [LE] [JOBB] [CLR] 

PR INT OS;,KA;"X" 

PR INT"-“ 

RÉM 40XI-] 

PRINT” EV-HAVI-OSSZBEFIZ."; 

PRINT" HAVI-OSSZBEFIZ.-EV" 

PR INT"-" 

RÉM 40XI-] 

FÓR EK=1 TO 18 
GOSUB 860:AA=A 
GOSUB 890 : BB=A 

PRINT EK;TAB(4)INT(AA/12);TAB(11)INT<AA*EK);TAB(20)INT(BB/12); 

PRINT TAB(26 ) INT(BB*(EK+18));TABC321EK+18 
NEXT EK 

PRINT TAB(6) “ jgKER NYOMTÁTÁST < I/N)?!»" 

RÉM [CTR/9] [CTR/03 

GET A$:IF A$="* THEN GOTO 800 

IF A$="r' THEN GOTO 930 

IF A$="N” THEN GOTO 840 

IF A$O a r OR A$<>“N" THEN GOTO 800 

GOTO 160 

RÉM- 

A=OS*((1+KA/100)TEK)*((KA/100)/(((1+KA/100)TEK)-1)) 

RETURN 

RÉM- 

A=OS*((1+KA/100)t(EK+18))*((KA/100)/(((1+KA/100)T(EK+18))-l)) 
RETURN 

RÉM- 

RÉM ******* NYOMTÁTÁS ********** 

PR INT” ÚJ" ; PR INT " JiKER NYOMTÁTÁST <I/N>?B!" 

RÉM 2XIFEL] 6XISPC] [CTR/9] [CTR/0] 

OPEN 1,4:TB$=CHR$(16) 

PRINT#1, "-" 

RÉM 40XÍ-] 

PRINT#1,OS; 11 " ;KA;"%“ 

RÉM 7XISPC] 

PRINTttl, "-“ 

RÉM 40X[-] 

PRINT#1,* EV-HAVI-OSSZBEFIZ.“ ; 

PRINTttl,“ HAVI-OSSZBEFIZ.-EV" 

PRINT#1, "-" 

RÉM 40X[-3 
FÓR EK=1 TO 18 
GOSUB 860:AA=A 
GOSUB 890:BB=A 

PRINT#1,EK; n "INT(AA/12);TB$"11"INTIAA*EK);TB$"20"INT(BB/12); 
PRINT#1,TB$"26"INT(BB*(EK+18));TB$"32"EK+18 
NEXT EK 
PRINTttl 

CLOSE 1;PRINT"nKESZ l";;GOTO 790 
RÉM [FEL] 


O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 


HITEL FELVETEL EVE; 1992 
HITEL LEJARASANAK EVE; 1996 
HITEL KAMATA: Bfójtöj % 

HITEL ÖSSZEGE: T20000 


38400 


32364 


>4397 


13881 


O 

O 

O 

O 


O 
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JACKIE UTILITITES C-64 


I. rész 

Te, kedves Commodore-64 rajongó, a továbbiakban a 
„JACKIE UTILITIES” azon programjait láthatod, amelynek a 
programcsomagja az előző közlés óta elkészült. Bizonyára talál¬ 
ni fogsz köztük olyat, amelyet rutinkönyvtáradba felvéve, vala¬ 
mely programodban majdan alkalmazni tudsz. Mindennemű 
felhasználás engedélyezett! És most lássuk a termést! 

Az 1. listán a „SPRITE POSITIER” nevű rutint láthatod, 
ami a szellemek mozgatásához nyújt segítséget. Használata: 
SYS 49152, sprite szám, x % (0), y % (0), lassítás. A sprite-szám 
egyértelműen: 0—7 lehet. A lassítást 0 és 255 között lehet változ¬ 
tatni, de nulla értéknél kikapcsolódik a rutin. A két (egyébként 
tetszőleges nevű) tömbnek egész típusú, egydimenziós és azonos 
elemszámra (max. 255!) dimenzionáltnak kell lennie. Az első¬ 
ként megadottba az x, a másodikként jelöltbe pedig az y 
koordináta-értékeket tárójuk. A rutin az IRQ-hoz hozzátű- 
ződik és rendre a lassításnak megfelelő számú megszakításban 
a megadott szellemet a rendre következő tömbelemekben tárolt 
helyre pozícionálja. Ha a tömbök feltöltéséhez pl. SIN és COS 
függvényeket alkalmazunk, egyszerűen lehetővé válik a sprite 
mozgatása, ellipszis pályán vagy pl. egy szinusz-hullám mentén. 

A 2. lista programja szintén az objektumok kezelését köny- 
nyíti meg. Segítségével animálhatóvá válnak sprite-jaink. A 
„SPRITE AMINATE’-ot a következő paranccsal indíthatjuk: 


SPRITE 49152, sprite-szám, késleltetés, sprite blokk, s-blokk2, 
.... s-blokk n. A program funkciója egyértelmű: a megadott szel¬ 
lemhez a késleltetésnek megfelelő időközönként a soron követ¬ 
kező sprite-blokkot rendeli hozzá. A leállításhoz a késleltetés 
mértékét nullában határozzuk meg. 

A memóriában lévő szellemeket nyolcszoros nagyításban a 
képernyő tetszőleges helyére rajzoltathatjuk a „SPRITE NA- 
GYÍTO’-val (3). Indítása: 5YS 49152, x, y, szín, sprite-blokk, ki¬ 
kapcsolt pontok ASCII, bekapcsolt pontok ASCII. Az x; y a kép¬ 
ernyő egy pontja, ahová a sprite bal felső sarka kerül. Meg kell 
adnunk a rajzolás színét (0—15), a sprite-blokkot, valamint an¬ 
nak a két karakternek az ASCII kódját, amit a be-, illetve a kikap¬ 
csolt pontoknál látni óhajtunk. 


o 

100 

RÉM" i-1" 

o 

1 10 

RÉM" 1 SPRITE POSITIER 1" 


120 

RÉM" 1 COMMODORE 64 1" 


0 

130 

RÉM" 1-1" 

o 

140 

RÉM" 1 IRTA 1 JRCKIE MAESTRO 1" 


150 

RÉM " 1 -'" 


o 

160 


0 


170 

K=49152-V=43535 


180 

OEFFNft < X>=ASC < MI<A*,X,1> >-48+7* 

o 

o 

ólIDKÍItA, 1»"@“> 

190 

FÓR I**K TO V STEP 8-3=0 



£00 

> * FÓR J=0 TO 7 

o 

o 

210 

•>■REAO A$ 
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Q 228 ::! fi—16*FNfi<1>+FNA<2) 

230 > > > POKE I+J,fi■PRINT" 3" ;I+J 


O 


O 

O 

o 

o 

O 

o 

o 

o 

o 

o 

o 


240 
250 
260 
27*0 
280 
230 
300 
381 

302 

303 

304 
3Ö5 

306 

307 

308 
3Ö3 

310 

311 

312 

313 

314 

315 
31 6 

317 

318 

319 

320 

321 

322 



• 1 ■S=S+A 
*■NEXT 
«•REfiD fi* 

1 : A=16*FNA< 1 >+FHt-K2) 

IF < SRHD255> =flTHENNEXT•PRIHT"OK">END 
PRXNT"HIBFI • '■, PEEK<63>+256*PEEK<64> 
OfiTft 2Ú,FO, AE,20,3E,E7,E0,03,28 
OfiTA 90, 03 ,40,48,82,SA,0fi,85,F2 
DATA 88 , 20 »:F0> AE > 20 / 8B, BÖ,38/ E9 
GAT fi A5,47, E3, 07,85 , F7, A5, 48 , 45 
DATA E9,00,85,F8,20,FO,AE,20,51 
DAT Fi 38 , 80, 33, A 5,47 , E9,07,85, D4 
DATA F9,A5,48,E9,00,85, Ffi, 80, EE 
DATA 00, B1, F7,0A, 80, 05, A2, 16, 1. F 
DATA 4C, 3Fl, A4, B1, F3,0A, 90, F6, 64 
DAT Fi C8, B1, F7,0A, 90 ,F0,Bi,F3, A4 
DATFl 0A, 90, EB, A0, 04, Bl, F7 ? , 09, 9A 
DATA 01,F0,05,82,12,40,38,84,D4 
DATA B1,F3, CS ,01,D0,F5,A0,05,DE 
DATA e1,F7,03,00,D8,ED,08,B1,87 
DATA F7,85,80,83,B1,F3,09,00,03 
DAT A 00,E1,08,B1,F3,05,80,00,44 
DATFl DA, 18, F|5, F7, 63,07,85, F7,78 
DATFl Fl5, F8,69,00,85, FS, 18, A5, 40 
DATA F9,69,07,85,F9,85,FA,69,EF 
DATFl 00,85, FA, 82,00,80,01, Bl, 73 
DATA F9,9D,00,08,88,B1,F9,09,53 
DATA 00,F0,03,40,48,B2,18,A5,F6 
DATFl F9, 63,02, 85, F9 , F|5, FA, 69, E8 
DATFl 00,85,F8,E8, E4, SC, 00, DD, 84 
DATA 82,00,A0,01,B1,F7,9D,00,88 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


325 

326 

327 

328 
323 

330 

331 

332 

333 

334 


336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 


DATA 06,88,83,00,3D,00,07,81,00 
DFlTFI F7,09,02, 30, 03,40,48, B2,9B 
DATA 09, 00, F0, 11, BD, 001, 06, 09, 16 
DATA 59,B0,F2,85,8B,48,88,B3,06 
DATA 77,01,90,00,07,E8,E4,80,F4 
OFlTFl F0, 10, 18, 85, F7,69, 02,85, 84 
DFlTA F7,85, F8,69, 00,85, F8,40, Ci6 
DATFl 02, 00,89,00,85,8D, 20, FD, 58 
DATA AE,20,9E,B7,86,SE,E0,00,17 
DATA 00,00,78,89,31,80,14,03,03 
DAT fi 89, EFl, 80, 15,03,58, 60, A3, 99 
DATA 00,85,8F,78,83,30,80,14,86 
DATFl 03, A9, Cl, 80, 15, 03,58,60, CFl 
DFlTA ES,8F, A5,8F,05,SE,FÖ, 03, EF 
DATA 40,31, EA, A9, 0*3,85,8F", A6, CA 
DATA 8D,A4,8B,BD,00,06,99,00,D8 
DATFl 00, BD, 00,08, 99,01,00, 98, 57 
DATA 4A, FIA, BD, 77,01,49, FF, 2D, 5E 
DATA 10, IJ0 ,80,10,0*0, A6,8D, BD, 3CI 
DATA 00,07,0D,10,D0,8D,18,00,21 
DATA E6,8D,85,8D,05,80,08,04,Cft 
DATA A9,00,85,8D,40,31,EA,01,23 
DATA 02,04,08,10,20,40,80,FF,FD 


o 

o 

o 

o 

o 

o 

o 

o 
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100 

RÉM" i-i" 


o 

110 

RÉM"1 SPRITE NAGVITO 1" 


120 

RÉM"1 COMMODORE 64 1" 

o 


130 

RÉM" 1-1" 


o 

140 

150 

RÉM" 1 IRTA ! JACKIE MAESTRO 1" 

RÉM" ' - 1,1 

o 


160 



o 

170 

K=49152 ‘ V=49346 

Ü 


180 

OEFFHR OO “HSC <M10* < A*,X,1> >-48+7* 

o 

CMIDTCAst, X, 1 :> 


190 

FÓR I=K TO V STEP 8■S=0 

o 


200 

>•FÓR J=0 TO 7 

o 

210 

>■■READ A* 


220 

s:í r« 16*FNA<1>+FNfi<2> 

o 


230 

>■*POKE I+J,A-PRIMT'TJ";I+J 


248 

t » t s=s+fl 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


2-50 

260 

270 

280 

290 

300 

301 

302 

303 
3Q4 

305 

306 

307 
388 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 


*■NEXT 
1 1 READ A* 

! ' A=16*FNA< 1 >+F’NA<2> 

IF <SAND255 > =ATHENNEXT'PRINT"OK"■END 
PRINT"HIBA•“ i PEEK < 63 > +256*PEEK <64 > 
DATA 38,20,F0,FF,86,8E,84,8D,60 
DATA 20,FD,RE,20,9E,B7,EB,11,31 
DATA 90,03,40,48,82,86,02,20,81 
DATA FD,AE,20,9E,B7,Eü,05,B0 , B5 
DATA F1,A4,Ö2, 18,20, F0, FF, .18, D6 
DATA R5,D1,65,D3,85,FB,85,FD,B0 
DATFl A5, D2, 69,80,85, F‘C, 18,69, E2 
DATA D4,85,FE,20,FD,AE,20,9E,E0 
DATA B7,86,F9,£8,FD,RE,20,9E, BF 
CiRTfl E:7, A9,00,85, F8,8A, R2,00, 09 
DATA 0A,26,FS,E8,EO,06,Dü,F8,BE 
CiRTA 85, F7,20, F D, Fit, 20 , 9E, El7, BO 
DATA 86,FA,20,FD,AE,20,9E,B7,OG 
DATFl 86, FF, A8,08,84,82, A9,0O, 54 
DATA 85,80,A4,02,B1,F7,85,8B,6F 
DATA E6, 02, A2,08,06,8El, A5, FA , Elfi 
DATA 90,82,A5,FF,A4,80,91,FB,F2 
OiRTA A5, F9, 91, FD, E6,80, E8, EB, 66 
DATA 08,D0,E9,A5,80,09,18,D0,H3 
DATA 09,18,A5,FB,69,28,35,FB,R2 
DATA A5,FC,69,00,85,FC,18,A5,48 
DATA FO,69,28,85,FD,A5,FE,69,1C 
DATA 00,85,FE,A5,02,09,3F,DG,82 
DATA B5, 18,Fl6,8E,A4,8D,20,F0,42 
DATA FF, 60,00,00,00,00,00,00,5F 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


100 REN "V 
110 RÉM" I 


SPRITE AH I MFlTE 
COMMODORE 64 


JACKIE MAESTRO I" 


120 RÉM"I 

130 RÉM" I- 

140 RÉM"IIRTR' 

150 RÉM" 1 - 

160 s 

178 K=4S‘152 1 V=49281 

180 DEFFNA<X>=RSC<MIÜ*<A*»X, 1 ^ 1*— 48-**7i$ 
<MID*<A#,X, 1 >>"i3"> 

190 F0R .I=K TO V STEP .8 1 8=0 
■FÓR J=© TO 7 
•«READ A* 

■•A=16*FNfl<1>+FNfl<2> 

■ • POKE I + J, A ! PR I NT" 03" ; I+J 
i■S=S+R 

■ NEXT 
* READ fi* 

•A=16*FNA<1>+FNA<2> 

IF C SAND255 >=ATHENNEXT <PRINT"OK">END 
290 PR INT "HIBA > " J PEEK<63>-*-256*PEEK<64> 
30G DATA 20,FD,AE,20,9E,B7,E0,08,28 
3G1 DATA 98,03,40,48,B2,36,©B,20, 0A 

302 DRTA FD,AE,20,9E,B7,S6,8C,A0,D2 

303 DATA 00,84,02,A0,00,Bl,7R,09,ÍR 
384 DATA 20,D0,10,20,FD,RE,20,9E»95 

305 DATA B7,3fi,fi4,02,99,00,02,08,0A 

306 DATA 40,19,00,A9,00,85,F7,85,CF 
807 DATA 8D,A6,8U,E0,00,D0,0D,78,F4 
308 DRTA A9,31,8D,T4,03,A9,EB,8D,9E 

15,03,58,60,78,A9,59,8D,07 
14,03,A9,00,80,15,03,58,70 

311 DATA 60,E6,8O,R5,8D,C5,8C,F0,46 

312 DATA 03,40,31,EA,R9,00,85,80,25 

313 DATA A6,F7,BD,@0,C2j,A6,8B,9D,EA 

314 DATA F8,07,E6,F7,A5,F7,05,02,3F 

315 DATA D0,84,A9,00,85,F7,40,31,76 

316 DATA EA,00,00,00,00,00,00,00,EA 

READV. 


200 

210 

228 

238 

240 

250 

260 

270 

280 


309 DATA 

310 DRTA 


O 

O 

O 
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o 
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EGYESÜLET 




263 

C64 

91/ 2 

40 Sprite 

100.- 

264 

C64 

91/ 2 

Raster - Master 

60.- 

265 

C64 

91/ 3 

Rulett 

80.- 

266 

+4 

91/ 3 

Tape-disc copy 

90.- 

267 

C64 

91/ 3 

BASIC rearranger 

40.- 

268 

C64 

91/ 3 

BASIC decompactor 

40.- 

269 

C64 

91/ 3 

BASIC merger 

40.- 

270 

C64 

91/ 3 

SEIKOSHA 

60.- 

271 

C64 

91/ 3 

Cartridge szimuláció 

100.- 

272 

+•4 

91/ 3 

Sa11y ku1csszókereső 

40.- 

273 

+4 

91/ 3 

Merge C+4 

60.- 

274 

Cl 28 

91/ 4 

1.5 MUz-es C64 

80.- 

275 

C64 

91/ 4 

Morze - H 

60.- 

276 

C64 

91/ 4 

(Sprint 

40.- 

277 

C64 

91/ 4 

ASCII - CHR$ 

40.- 

278 

C64 

91/ 5 

Rendező 

60.- 

279 

C64 

91/ 5 

Keretbeiró 

50.- 

280 

C64 +4 

91/ 5 

NLQ Print 

50.- 

281 

C64 

91/ 5 

FLD 

40.- 

282 

C64 

91/ 5 

Ra3ter Split 

40.- 

283 

+4 

91/ 6 

ProgramnyiIvantartó 

60.- 

284 

C64 

91/ 6 

Regiszter 

50.- 

285 

C64 

91/ 6 

Digitalizált zene 

40.- 

286 

C64 

91/ 6 

Ékezetes Ml’S 802 

60.- 

287 

C64 

91/ 7 

•Ékezetes iratkeszitö 

80.- 

288 

+4 

91/ 7 

Bűvös téglalap 

80.- 

289 

C64 

91/ 7 

Dominó - H 

80.- 

290 

C64 

91/ 7 

Raktáros 

60.- 

291 

+4 

91/ 7 

Tologató 

50.- 

292 

C64 

91/ 7 

Aren 2000 

40 .- 

293 

C64 

91/ 7 

Bad Lamps 

60.- 

294 

C64 

91/ 7 

Operation Patriot 

40.- 

295 

+ 4 

91/ 7 

Mozaik - B 

70.- 

296 

+ 4 

91/ 7 

Lógi Kód 

50.- 

297 

C64 

92/ 1 

Databevivö 

40.- 

298 

+4 

91/ 7 

Bomber 

40.- 

299 

+4 

91/ 7 

Dominó - K 

40.- 

300 

+4 

91/ 7 

The Wal1 

30.- 

301 

C64 

91/ 7 

Mozaik - K 

40.- 

302 

+4 

91/ 7 

Dominó - R 

50.- 

303 

+4 

91/ 7 

•Borgok Kincse 

150.- 

304 

+4 

91/ 7 

Asteroids 

50.- 

305 

C64 

91/ 9 

Ékezetes irat forrás 

30.- 

306 

C64 

91/ 9 

Yugo2 

40.- 

307 

C64 

91/ 9 

Adventure - Sz 

100.- 

308 

C64 

91/ 9 

Morze Oktató B. 

100.- 

309 

+4 

91/ 9 

Memory Game Plus 

80.- 

310 

C64 

91/ 9 

•Capitaly 

100.- 

311 

C64 

91/ 9 

•Gengszterek 

50.- 

312 

C64 

91/ 9 

•Küldetés 2000 

80.- 

313 

C64 

91/ 9 

Itt a $ hol a $ 

40.- 

314 

C64 

91/ 9 

Hewing 

40.- 

315 

+ 4 

91/10 

Mikrobi 

40.- 

316 

+4 

91/10 

Nest of Fleas 

150.- 

317 

+4 

91/10 

Adventure - F 

80.- 

318 

+4 

91/10 

A világ szeme 

120.- 

319 

C64 

91/10 

Gondolkozó 

80.- 

320 

C64 

91/10 

Memori - B 

100.- 

321 

+4 

91/10 

Matekasté1y 

80 

322 

C64 

91/11 

LottO 

60 

323 

C64 

91/11 

Totó 

60.- 

324 

C64 

91/11 

Nemet gyakorló 

50.- 

325 

+4 

91/11 

Beszélő szótár 

100.- 

326 

♦ 4 

91/11 

Fi le examiner 

50.- 

327 

C64 

91/1 1 

Sprite szerkesztő 

40. - 

328 

C64 

91/11 

Egyszínű Sprite 

'40.- 

329 

C64 

91 /12 

Rulett javítás 

40.- 

330 

C64 

91/12 

Tőzsde 

100.- 

331 

C64 

91/12 

IQ teszt 

120.- 

332 

C64 

92/ 1 

Kalandlap 

60.- 

333 

C64 

92/ 1 

Lévé 1 író 

60.- 

334 

C64 

92/ 1 

Képérnyomaszko1ó 

100.- 

33b 

C64 

92/ 1 

Sprite Kezelő 

80.- 

336 

C64 

92/ i 

Sl - OPART 

30.- 

337 

C64 

92/ 2 

Patience Quartet 

100.- 

338 

C64 

92/ 2 

Monopoly 

100.- 

339 

C64 

92/ 2 

Akasztófa 

60.- 

340 

C64 

92/ 2 

Karaktertervező 

50.- 

341 

C64 

92/ 3 

Stnng Array Manager 

80.- 

342 

C64 

92/ 3 

Sprite Basic 

40.- 

343 

C64 

92/ 3 

Screen Help 

40.- 

344 

C64 

92/ 3 

Gyors validate 

50.- 

345 

C64 

92/ 3 

BASIC SYNTAXER 1. 

150.- 

346 

C64 

92/ 4 

Tologató C'64-re 

80.- 

347 

C64 

92/ 4 

ABC rendező 

80.- 

348 

C64 

92/ 5 

•Matek + Romai szamok 

80.- 

349 

+4 

92/ 6 

Tesztkészitö + értékelő 

80.- 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

150.- 

351 

+4 

92/ 7 

Három játék 

90.- 

352 

+4 

92/ 7 

Szökés 

60.- 

353 

C64 

92/ 7 

Toto 

120.- 

354 

C64 

92/ 7 

DIGIT analizis program 

90.- 

355 

+4 

92/ 7 

SCREEN DUMP 

120.- 

356 

C64 

92/ 9 

UNISEQ fi lekezelő 

100.- 

357 

C64 

92/ 9 

Graphic Copy 

50.- 

358 

C64 

92/10 

Printfox Resizer 

100.- 

359 

C+4 

92/11 

Tologató I1. 

120.- 

360 

C+4 

92/12 

Sprite Plus-4-en 

100.- 

361 

C64 

92/12 

Vá1tozólista 

120.- 

A *- 

ga L jelölt 

programok csak lemezen rendelhetők 

i 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 


(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 

Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ- 
GŐSZOLGÁLAT-tól: 


PROGRAM SORSZÁMA 

Ara 

1- 




LU'- Ft 

2. 



LU'- Ft 

3. 




LU'- Ft 

4. 




LU- Ft 

5. 



LU- Ft 

6. 



LU ~ Ft 

7. 



u_ 

1 

3 

in 

8. 



LU- Ft 

9. 




LU'- Ft 


összesen: | j | db | | | | Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség (35 Ft) 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve: . 

Címe:. .•. 



o 
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EGYESÜLET 



BÚCSÚZUNK ... 

... a Magyar utcai C= szerviztől 

Talán éppen most van egy évtizede, hogy az első fecs¬ 
kének számító CBM, azaz Commodore Business Machines 
számítógépek elérhető áron és mondjuk úgy, hogy közforga¬ 
lomban beszerezhetően megjelentek a hazai piacon, és ezzel 
kezdetét vette egy, a napjainkig is tartó „számítógépláz”. 
1992 karácsonyán is bizonyára még sokak kedves ajándéka 
volt „a számítógép”, ami az elmúlt egy évtizedben a Com¬ 
modore típusokon kívül sokfélét jelenthetett, kezdve a Sinc- 
lairtől a mai PC-gépckig. 

A legnagyobb sikert kétségkívül a C 64-es aratta, hogy 
miért, erre mindenkinek megvan a maga válasza, de tény, hogy 
mind a mai napig, hála egyre olcsóbban, de veszik ... és veszik... 

A hazai piacra nagyobb mennyiségben sokan hoznak be 
gépeket, de igazán jelentős szerepet vállaló a NOVOTRADE Rt. 
volt, mely az akkor újnak számító lízing segítségével vállalatok, 
szövetkezetek és sok egyéb felhasználó részére - igaz, a maihoz 
képest borsos áron - de megteremtette a széles körben alkalmazott 
számítástechnikát. Géppel, programmal, könyvekkel... 

Ha eladták, hát jótállást kellett vállalni, sőt a 3 éves 
futamidejű lízing alatt még karbantartást, kiegészítő cikkek 
forgalmazását is stb... Ehhez viszont szerviz is kell. 

Nos így jöttünk mi létre Fotoelektronik-Novotrade Gazdasági 
Társaság néven egy lelkes miskolci kolléga és néhány segítője 
után itt Budapesten, a hajdani alumíniumbolt helyén (még ma is 
keresik telefonon) itt, a Belvárosban a Magyar utca 12-ben. 

A nagy áttörés 1985-től kezdődött. Rövid két év alatt 
igazán dicséretes országos szervizhálózat alakult ki, megfe¬ 
lelő lett az alkatrészellátás, létrejött egy szervizkultúra az 
ügyfelek fogadása, a gépek javítására, a munkalapok, rak¬ 
tárforgalom hatékony kezelésére és sorolhatnám tovább. Per¬ 
sze a C-16-os gépek, vagy a +4-esek inváziója idején tízmé¬ 
teres sorokban állók ebből csak a kényszerű bosszúságot 
látták. Aztán mi is átalakultunk és szorgos-serény NOVO¬ 
TRADE Szerviz Kft. lettünk. 


Olcsó C-64-es programok el¬ 
adása kazettán. Játék progra¬ 
mok, felhasználói progra¬ 
mok, oktatói programok. Sa¬ 
lamon Péter, 4122 Gáborján, 
Fő u. 21. 

Commodore, PC, Epson,, 
Star, TVC gépek javítása, 
Epromok égetése. Cím: Bu¬ 
dapest XVI., Ködös u. 42. 
Tel.: 2714-186. 

c* 


Eladó alig használt Com¬ 
modore 128-as számítógép 
+ 1571-es lemezmeghajtó + 
lemezek + szakkönyvek. 
Irányár 28 000 Ft. Érdek¬ 
lődni lehet az 1-353-900-as 
telefonszámon Szőke Mik- 
lósnénál. 

C-64-re új játék- és felhasz¬ 
nálói programok eladók. Bé¬ 
lyeggel ellátott válaszboríté¬ 


Magánügyfeleink csak rendre hozták az alapgépet, mag¬ 
nót, floppyt és a tápegységet, meg a joystickot. Gyerek ma¬ 
gyarázta, hogy a „program nem jön be”, szülő mérgelődött 
„micsoda dolog ez, hogy már megint mennyit kell fizetni”, 
de mégis kialakultak azok a kedves kapcsolatok, ahol a te¬ 
lefonban nem a „szerelőt” kérték, hanem a Robit, Gézát, 
Ákost, Zsoltit... vagy „azt a barna hölgyet aki a gépet veszi 
be és nekem megígérte, hogy mára kész lesz”... 

A vállalatok, intézmények részére kedvezően alakult az 
átalánydíjas javítási és karbantartási szerződésforma, ami fo¬ 
lyamatos üzembiztonságot adott és az előírt javítási határi¬ 
dőre, vagy attól eltérő esetekben cseregép biztosításával, de 
mindig a partner érdekeit szem előtt tartva biztosította a gépek 
működőképességét. Volt is olyan év - nem is egy -, amikor 
több mint tízezer munkalapot kezeltünk és egyes esetekben ez 
több egységet is jelenthetett. A kiszedett IC-k tucatnyi kilóit 
adtuk át nemesfém-visszanyerésre és javában folyt a nyomta¬ 
tófejek és motorok felújítása, meg a tápegységek gyártása. 

Aztán egyszer csak valami megváltozott. 

A rendszer, a gazdaság, a környezet a pénztárca és a 
hangnem is. Kevesebb lett a garanciális kötelezettség: a kö¬ 
zületi partnerek is átalakultak, megszűntek, gépeiket lecse¬ 
rélték, eladták. 

Mi is váltottunk, de a piac gyorsabb volt. Magánügyfeleink 
sem igen tudták elfogadni a 25% ÁFA-t, és az alkatrészbeszer¬ 
zésre fordított márka 20-ról 50...55-re felkúszó „piaci” korrek¬ 
cióját, a VÁM-ot, statisztikai illetéket és egyebeket. 

Régen nem jut már szerviz felújításra, halványabban 
pislognak az éppen leszakadni akaró neonfények is a 
mennyezeten és virág helyett szemét és kutyapiszok kerül 
reggelente az utcai virágtartókba. 

Tevékenykedünk, javítunk, adunk és veszünk, de vala¬ 
hogy már nem ragyognak úgy a régről ismert és titkon újra 
várt fények. 

Bezárt a pécsi szerviz, majd megváltunk Salgótarjántól, 
Győrtől, Kaposvártól, a kecskeméti felvevőtől, a kispesti 
szerviztől és magányos, egyszemélyes lett Székesfehérvár 
meg Debrecen is. 

Az idei karácsony egy lakatot tesz a Magyar utcai ajtóra is. 

Talán már ma is veszteséges, vagy csak holnap lesz az? 

Keressünk-e új utakat, vagy embereket, hitet és erőt 
vagy új mosolyt az arcokra? Már nem... a törülközőt bedob¬ 
ták és a sokezernyi ügyfél ezentúl a Józsefváros mélyén, a 
panelházak szélén kap gyógyírt ezernyi bajára, kedvenc Com- 
modore-jára. 

így búcsúzik az elmúlt évek valamennyi itt dolgozójának 
nevében az utolsó szervizvezető: 


Kertész István 


kért listát küldünk. (Vízhat¬ 
lan csomagolás, kedvezmé¬ 
nyek!) FRIEND TWO 
CREW, 1399 Bp„ Pf.: 
701/55. Ezúton köszönetét 
mondunk a HERTA Kereske¬ 
delmi Kft.-nek, valamint a 
FŐVÁROSI SZÁLLÍTÁSI 
TANÁCSADÓ BT.-nek. 

C-64-re cserélek programokat, 
csak lemezen. Listát kérek és 


küldök. Czifra Zoltán, 5231 Fegy¬ 
vernek, Kiss János út 18/a. 

Keresem Amigára a MIG-29- 
M Super FULCAUM nevű 
játékot. Hajdany Ádám, 1145 
Budapest, Újvilág u. 39./b. 

C-16 és Plus/4 szuperprogra¬ 
mok olcsón eladók kazettán és 
lemezen. Kéij listát! Bende Fe¬ 
renc, 8500 Pápa, Attila u. 5/b. 
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APRÓCSKÁK 


C= 

C-64 II + 1541 II + FINAL 
III + magnó + 12 kazetta + 
50 lemez + lemeztartó. Sür¬ 
gős! A500 plusra cserélhető! 
Érdekel használt A500 plus 
is. Sürgős!! Berecz Tamás, 
tel.: 06-36/356-459. 

C-64-re járékprogramok el¬ 
adók. A játékprogramok da¬ 
rabja 15 Ft. Válaszboríték el¬ 
lenében listát küldök. Sipos 
Csaba, 3770 Sajószentpéter, 
Sport út 7. 3/2. 

C-64 DISK-re PROGRAM¬ 
HEGYEK eladók! Régi és új 
játék és felhasználói progra¬ 
mok, szakleírások, GEOS-ok 
eredeti állapotban, OLCSÓ 
ÁRON! Tájékoztatóhoz és 
listához szükséges 1 db le¬ 
mez és 20 Ft-os bélyeg, vagy 
lemez nélkül 70 Ft. Holecz 
Ildikó, 1045 Budapest, Rózsa 
u. 21. VI/24. 

C-64-re már 3 Ft-os ártól el¬ 
adók kiváló játék, felhasználói 
és egyéb programok, lemezre 
és kazettára egyaránt, leírások¬ 
kal. Bélyegzett válaszboríté¬ 
kért listát küldök. Kovács 


Krisztián, 6750 Szeged-Al- 
győ, Bartók Béla u. 6. 

C-64-es programok eladók 
lemezen. Csere is érdekel. 
Érd: (Pád Softwer) 6772 
Deszk, Alkotmány u. 4. Tel.: 
(62) 372-491. 

C-64-re programok eladók 
lemezre és kazettára, kedvez¬ 
ménnyel. Felbélyegzett vá¬ 
laszborítékért listát küldök. 
Papp Mihály, 4034 Debre¬ 
cen, Sterbinszky u.37. 

A játékhoz ÖRÖKÉLET kell. 
POKE LEXIKON a CODI 
különkiadásában. Megrendel¬ 
hető: Varsányi, 9700 Szom¬ 
bathely, Nagy László u. 11. 

Amit tudni kell a GEOS-ról. 
Az első GEOS-LEXIKON. 
Ára: 200.- Ft + postaköltség. 
Megrendelhető: Varsányi, 

9700 Szombathely, Nagy 
László u. 11. 

Még kapható a CODI évkönyv 
(3 lemezen) 255 Ft utánvéttel. 
Varsányi, 9700 Szombathely, 
Nagy László u. 11. 


GIGA-CAD leírás lemezen 
150 Ft + nyomtatva 450 Ft 
+ postaköltség. Cím: Apró 
Lajos, 4220 Hajdúböször¬ 
mény, Táncsics u. 72. 

C-64-re sikerprogramok rek¬ 
lámáron, kazettán és lemezen 
eladók. írjatok gyorsan! Ben- 
de Ferenc, 8500 Pápa, Attila 
u. 5/b. 

C-64-ed van? BASIC-et ta¬ 
nulsz? Akkor itt az alkalom: 
BASIC OKTATÓ 1.: alapba- 
sic oktató +10 példaprogram 
+ adathordozó: 250 Ft + por¬ 
tó. BASIC OKTATÓ 2.: 
alapbasic oktató + 15 példa- 
program + az összes BASIC 
utasítást tartalmazó, nyomta¬ 
tó BASIC LEÍRÁS + magyar 
nyelvű hibaüzenetek program 
+ adathordozó: 300 Ft + por¬ 
tó. Az oktató és a leírás éke¬ 
zetes. Válaszborítékért infor¬ 
máció. Megrendelhető után¬ 
véttel. Szűcs Gábor, 3528 
Miskolc, Jendrassik u. 10. 
Tel.: (46) 389-018. 

Eladó 120 MB játék és fel¬ 
használói program PC-re 3M 
5’25”-ös és 3’5”-es lemeze¬ 
ken. Válaszborítékra tájékoz¬ 
tató. Nagy István, 1202 Bu¬ 
dapest, Mártírok útja 151. 

PC AT programokat cserélek 
(főleg SVGA). Küldj 5’25”- 
ös lemezeket, amelyeket a 
saját programjaimmal garan¬ 
táltan visszaküldők! Vannak 
szuper zeneprogramok, és 
csúcsszuper grafikai demo- 
felvételek, de a játékaim sem 
elhanyagolhatók. Ezen kívül 
rendelkezem a legjobb vírus¬ 
ölőkkel és immunizáló prog¬ 
ramokkal is. Megvannak a 
legelterjedtebb csehszlovák 
felhasználói és szövegszer¬ 
kesztő programok. Választ¬ 
hatsz az év legjobb program¬ 
jaiból. Külön kérésre listát is 
küldök. Ha kedvet kaptál, de 
ha nem, akkor is. Küldj 
programokat a következő 
címre: Vigh Attila, Jantárová 
1868/13 92901 Dunayská 

Streda Szlovákia. Jelige: 
csak vírusmentes programo¬ 
kat várok és küldök. 


Hi Amigások! Akartok 1250 
db lemezt szinte ingyen. Ha 
igen akkor válaszboríték el¬ 
lenében elküldöm, hogy mit 
kell tenned a lemezekért. 
Cím: Coddy, 8000 Székesfe¬ 
hérvár, Benke F. u. 13. fszt. 
1. Természetesen C-64-re is 
fennáll a lehetőség, hogy 
megszerezd az 1250 db le¬ 
mezt, teli szuper programok¬ 
kal. Ha érdekel, akkor tün¬ 
tesd fel a géped típusát, és 
küld el a felső címre. Még 
valami, ha akarsz C-64-re 64 
Kbytes, vagy 32 Kbytes kart- 
ridge-t zenélős főmenüvel a 
lehető legolcsóbb áron, akkor 
is írj T.K.S., a cím ugyan az 
mint fenn. Még mindig, ha 
akarsz 4 db 8 Kbytes epro- 
mot szintén írj. CODDY OF 
TKS. Bye! 

C-64-es programok eladók 
lemezen és eladó egy C-64- 
hez való magnó. Érdeklődni: 
Pád Softwer, 6772 Deszk, 
Alkotmány u. 4. 

C-64-re 93-ban is 
A.Comp.W-től rendelje a 
legújabb, legjobb programo¬ 
kat. Új DS/DD lemezeken 
csak 80 Ft/db! Listát kül¬ 
dünk! A.Comp.W, 3014 
Hort, Pf.: 2. 

C-128/64 gépre programokat 
adok — veszek — cserélek. 
10.000 programom van. Cím: 
Járóka László, 1148 Buda¬ 
pest, Adria sétány 6. L/I. 2. 

C-64-esek figyelem! Leme¬ 
zeket és programokat adok el 
olcsón! Á lemezeknek 40 Ft 
darabja, de 20 db már csak 
7503 Ft. Játékokat is adok el 
amelyekből itt egy pld.: El¬ 
vira 2, Creatures 1., 2., stb.! 
Válaszborítékért listát és tájé¬ 
koztatót küldök. A fizetés 
módja postai utalványon törté¬ 
nik! Egyébként GEOS-t kere¬ 
sek! Címem: Oláh Attila, 5900 
Orosháza, Szarvasi út 62. 

Vennék C-16 alapgépre játék, 
oktató és szövegszerkesztő 
programot kazetta cartridge. 
Lőrik Ernő, 3524 Miskolc, 
Hajós u. 4. 
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Az EPROM BT A Commodore 64-re + az ismert D&T 
cartridge családja mellett kifejlesztett egy teljesen új, két 
részből álló modulrendszert. 

Részei: 

1./ BASIC MODUL 

Jelölése: BM 

Helye: a C-64 ROM bővítő portja 

Tartalma: - NYÁK csatlakozó, a cserélhető 

modulok számára 
- RÉSÉT gomb 

Fogadhat: 1 vagy 2 — csak cégünk által progra¬ 
mozott — IC-t 

A cserélhető modul helyes csatlakoztatása mechani¬ 
kusan biztosított. 

2.1 CSERÉLHETŐ MODUL 

Helye: a BASIC MODUL NYÁK csatlakozója 

Megnevezése: játékprogramok esetén 
GAME MODUL 

1 IC-vel 85—100 Kbyte terjedelem 

4 változat, 4—5 program/változat 

2 IC-vel 170—200 Kbyte terjedelem 

6 változat 8—10 program/változat 
Szoftveres menüváltás és modulkikapcsolás. 

Minden termékre 6 hónap garancia + használati útmutató. 
Árak: BASIC MODUL 1100 Ft 

GAME MODUL 1000 Ft 1 IC-vel 

2000 Ft 2 IC-vel 

Az árak az ÁFA-t tartalmazzák! 

Megrendelhető: EPROM BT. 

1046 Budapest, Török I. u. 25. 

Tel.: 1690-779 Postai utánvét! 









ACOMP Kft. 

FEBRUÁRI 
60 Ft-os 

vásárlási utalványa 

Beváltható 

készpénzes vásárlás esetén a 
1141 Budapest, Álmos vezér útja 17. 
szám alatti üzletben. 

Érvényes: 1993. február 28-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


MAKROVILÁG 

utazási iroda 

Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

5 000 Ft-ig — 200 Ft kedvezmény 

10 000 Ft-ig — 400 Ft kedvezmény 

20 000 Ft-ig — 500 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok Jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 


(gSjüMflf) 
FEBRUÁRI 

60 Ft-os 

vásárlási utalvány 

Beváltható készpénzes 
vásárlás esetén a 2C Áruházban. 

Bp. XIII., Balzac u. 35. 

Érvényes: 1993. február 28-ig. 


HOBBI ELEKTRONIKA 

FEBRUÁRI 
vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 
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A NOVOTRADE SZERVIZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 Budapest, Szigony u. 9. 

3525 Miskolc, Fazekas u. 1 — 3. 

5600 Békéscsaba, Bartók B. u. 37. 
6724 Szeged, Csongrádi sugárút 76. 
8000 Székesfehérvár, Rádió u. 15/A. 
9700 Szombathely, Szalonak u. 31. 


Tel.: 134-3153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/313-377 
Tel.: 22/319-765 
Tel.: 94/14-519 


£ 



Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is igénybe vehető. 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


VC—20 memóriabővítés 3 —27 kByte-os: kiépítéstől függő 

C—16, C— 116 memóriájának bővítése 64 kByte-ra: 3500 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C—16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás; 2000 Ft 

C—16 és 1541 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16, C—116, +4 potméteres sebességváltoztatás 

0%-tól 100%-ig fokozatmentesen 2000 Ft 

TTL'IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 


Egyesület tagoknak 30% kedvezmény: 


Speeddos (átkapcsolható) operációs rendszer beépítése 

(C64 átalakítás, lemezegység átalakítás + párhuzamos kábel) 6000 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 900 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge + program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5000 Ft 

Epromégető (2716-tól 27512-ig) 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Ft 

C64-bövítő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 7500 Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra 
mok beégetésével 2716-tól 27512-ig az eprommal együtt egységesen 700 Ft 

Árainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. címén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelőttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámitásra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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SZERVIZ Kft. 
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Elköltöztünk! 


Értesítjük tisztelt ügyfeleinket, 

hogy a 



Budapest V., Magyar utca 12—14. szám 
alatti szervize elköltözött. 


Új címünk: 


1083 Budapest VIII., 
Szigony utca 9. 
Telefon/Fax: 134-31-53 
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Ára: 136 Ft 


ACOMP Számítástechnikai Kft. 

1141 Budapest, Álmos vezér útja 17., Tel.: 183-1817, Fax: 251-2523 


Commodore Amiga 500 
Commodore Amiga 500 Plus 
Commodore Amiga 600 
Commodore Amiga 1200 
Commodore Amiga 1200/40 HD 
Commodore A-520 TV-Modulator 
Commodore C-128D 
Commodore C-64 II 
Commodore 1541 II Floppy 
Commodore 1802 monitor 
Commodore 1352 mouse (eredeti Amiga) 
Commodore Datassette 
Commodore 1084S monitor 

i 

Philips 8833 II. Stereo-Color monitor 
512 Kb órás memóriabővítő 
2.0 Mb órás memóriabóvítő 
1.0 Mb-os chip bővítő Amiga 500 Plus-ba 
1.0 Mb-os órás chip bővítő Amiga 600-ba 
Profex 3.5” külső floppy drive 
Roctec 5.25” külső floppy drive 
Samsung 24 tűs primer 
Quickshot II joystick 
Quickshot II plus joystick 
Quickshot II Turbo Joystick 
Quickshot QS - 113 analóg joystick 
Quickshot QS - 123 analóg joystick 
NoName 3.5” DSDD lemez 
NoName 3.5" DSHD lemez 
NoName 5.25” DSHD lemez 
3M 3.5" MF2-DD lemez 
Maxell 3.5” MF2-HD lemez 
Maxell 5.25” MD2-D lemez 
Maxell 5.25” MD2-HD lemez 



37 900 Ft 
41 900 Ft 
43 900 Ft 
67 900 Ft 
91 900 Ft 
3 500 Ft 
24 990 Ft 
12 900 Ft 
15 890 Ft 
24 900 Ft 

5 990 Ft 
2 500 Ft 

30 900 Ft 
30 900 Ft 
+> 3 200 Ft 
14 900 Ft 

6 900 Ft 

7 900 Ft 
9 490 Ft 

12 900 Ft 
37 500 Ft 
690 Ft 
890 Ft 
990 Ft 
990 Ft 
1 290 Ft 
550 Ft 
800 Ft 
430 Ft 
890 Ft 
1 690 Ft 
590 Ft 
890 Ft 


Profex 3.5” DSDD lemez 

Profex 5.25” DSDD lemez (11 darabos) 

Profex 5.25" DSHD lemez (11 darabos) 

Action Fteplay MK III 

4 Player Adapter (4 Joystick csatlakozó) 

PAN Cl 351 Mouse C-64 

PAN Amiga/Atari Mouse 

Noris MB 10 3.5” lemeztartó 

Noris MB 40 3.5” lemeztartó 

Noris MB 80 3.5” lemeztartó 

Noris DB 10 5.25” lemeztartó 

Noris DB 50 5.25" lemeztartó 

Noris DB 100 5.25” lemeztartó 

Noris Amiga 500 porvédő 

Noris C-64 II porvédő 

Noris MF 14 C 14" monitorfilter 

Noris Mouse pad 

Soundblaster II. Pro Basic hangkártya 

Midi Amiga Interface 

Handyscanner Amigához 

Boot Selector Amigához 

Stereo hangdigitalizáló Amigához 

Trackball Amigához 

Rochard HD kontroller A500/A500+ 

(AT Bús, 0-8 Mbyte Ram) 

+ 40 Mbyte Winchesterrel 

+ 80 Mbyte Winchesterrel 

+ 1 Mbyte SIMM Ram 

Mouse - Joystick automatikus kiválasztó 

68030 + 68882 - 20MHz + 

1 MB 32 Bit Ram-os turbókártya 

Amiga egér 3 - 60 MB-os 

Képdigitalizáló + RGB Elektronikus Splitter 



690 Ft 
300 Ft 
600 Ft 

15 990 Ft 

1 890 Ft 

2 500 Ft 
2 500 Ft 

170 Ft 
690 Ft 
890 Ft 
170 Ft 
690 Ft 
890 Ft 
990 Ft 
790 Ft 
590 Ft 
250 Ft 

16 900 Ft 

2 990 Ft 
13 900 Ft 

1 490 Ft 
6 900 Ft 

3 590 Ft 
24 990 Ft 

47 900 Ft 
50 900 Ft 

4 990 Ft 

1 500 Ft 

59 000 Ft 

2 500 Ft 
12 990 Ft 


Áraink az ÁFA-t tartalmazzák! 

Nyitvatartás 9—18 óráig, szombaton: 9—13 óráig. 

Vidéki vásárlóknak utánvételes csomagküldő szolgálat! 









